я делаю так:
| Код | //--------------------------------------------------------------------------- void __fastcall TForm1::Label1Click(TObject *Sender) { AnsiString pat; pat = "www.yandex.ru"; ShellExecute(Handle, NULL, pat.c_str() , NULL, NULL, SW_SHOWNOACTIVATE); } //--------------------------------------------------------------------------- void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { Label1->Font->Color=clBlue; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { Label1->Font->Color=clBlack; }
|
|