Re: Помощь по Delphi
uses ShellAPI
...
procedure TfMain.Label3Click(Sender: TObject);
begin
ShellExecute(0,
'open',
pChar('http://www.advanter.net'),
NIL,
NIL,
SW_SHOWNORMAL);
end;
и дальше:
implementation
Const
link = clBlue; //цвет ссылки
alink = clRed; //цвет ссылки в момент нажатия
vlink = clPurple; // цвет посещеной ссылки
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.font.Color:=link;
end;
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Font.Color:=alink;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Font.Color:=vlink;
end;
и установить свойство метки Cursor в crHandPoint