void __fastcall TForm1::Label1Click(){
void *ret = ShellExecute(0,"open","mailto:kotinna@mail.ru",NULL,NULL,SW_SHOW);
if(ret==NULL){
ShowMessage("Не установлен почтовый менеджер по умолчанию");
return;
}
}
Hyper+Top
Господа!
Помогите разобраться со следующими вещами -
1) как сделать, чтобы форма оставалась поверх всех других окон - событие вроде бы StayOnTop, но как его присовокупить к форме? В справке все они даны только для внутренних объектов самого Borlanda...
2) обычная гиперссылка - аналог html'а, при котором будет отправка на мыло и www соответственно...
Помогите разобраться со следующими вещами -
1) как сделать, чтобы форма оставалась поверх всех других окон - событие вроде бы StayOnTop, но как его присовокупить к форме? В справке все они даны только для внутренних объектов самого Borlanda...
2) обычная гиперссылка - аналог html'а, при котором будет отправка на мыло и www соответственно...
Цитата:
Originally posted by Solomon
Господа!
Помогите разобраться со следующими вещами -
1) как сделать, чтобы форма оставалась поверх всех других окон - событие вроде бы StayOnTop, но как его присовокупить к форме? В справке все они даны только для внутренних объектов самого Borlanda...
2) обычная гиперссылка - аналог html'а, при котором будет отправка на мыло и www соответственно...
Господа!
Помогите разобраться со следующими вещами -
1) как сделать, чтобы форма оставалась поверх всех других окон - событие вроде бы StayOnTop, но как его присовокупить к форме? В справке все они даны только для внутренних объектов самого Borlanda...
2) обычная гиперссылка - аналог html'а, при котором будет отправка на мыло и www соответственно...
1) Form1->FormStyle = fmStayOnTop;
2)Обработка события onClick объекта к примеру надписи:
Код:
Цитата:
Originally posted by kot_
1) Form1->FormStyle = fmStayOnTop;
2)Обработка события onClick объекта к примеру надписи:
1) Form1->FormStyle = fmStayOnTop;
2)Обработка события onClick объекта к примеру надписи:
Код:
void __fastcall TForm1::Label1Click(){
void *ret = ShellExecute(0,"open","mailto:kotinna@mail.ru",NULL,NULL,SW_SHOW);
if(ret==NULL){
ShowMessage("Не установлен почтовый менеджер по умолчанию");
return;
}
}
void *ret = ShellExecute(0,"open","mailto:kotinna@mail.ru",NULL,NULL,SW_SHOW);
if(ret==NULL){
ShowMessage("Не установлен почтовый менеджер по умолчанию");
return;
}
}
Огромное спасибо, как все просто...
(какой я идиот!!!!!)...