| Oper01 |
| Отправлено: 02.03.2004, 03:23 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 145
|
Подскажите, как можно на форме поставить ссылку на страницу и адрес эл. почты ? |
|
| xTrim |
| Отправлено: 02.03.2004, 08:04 |
|
Машинист паровоза
Группа: Участник
Сообщений: 208
|
с подчеркиванием и изменением цвета Label 
| CODE |
void __fastcall TForm1::Label2MouseEnter(TObject *Sender)
{
Label2->Font->Color = clBlue;
Label2->Font->Style = Label2->Font->Style << fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label2MouseLeave(TObject *Sender)
{
Label2->Font->Color = clBlack;
Label2->Font->Style = Label2->Font->Style >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label2Click(TObject *Sender)
{
ShellExecute(Handle,0,"mailto:bill@microsoft.com",0,"",SW_SHOW);
ShellExecute(Handle,0,"http:\\\\www.ya.ru",0,"",SW_SHOW);
}
|
|
|
| Oper01 |
| Отправлено: 02.03.2004, 13:03 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 145
|
Спасибо! |
|
|
