Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

URL   Найти похожие ветки 

 
sosv   (2003-05-13 15:09) [0]

Подскажите как ссылочку на форме сделать?


 
clickmaker ©   (2003-05-13 15:19) [1]

Легко!
Берешь TLabel
Label.Cursor := crHandPoint;
Label.Font.Color := clBlue;
Label.Font.Style := [fsUnderline];
Label.Caption := "www.sexygirls.ru";

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, "open", PChar(TLabel(Sender).Caption), nil, nil, SW_SHOWNORMAL);
end;


 
nevalex ©   (2003-05-13 15:20) [2]

Вот так например:


procedure TForm1.nevalexbyru1Click(Sender: TObject);
begin
ShellExecute(Handle,nil," http://nevalex.by.ru",nil,nil,SW_RESTORE);
end;
А ТАК НА МЫЛО
ShellExecute(Handle,nil,"mailto:nevalex@bk.ru",nil,nil,SW_RESTORE);


Удачи!!!


 
sosv   (2003-05-13 15:29) [3]

Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-83711
Фагот
2003-05-06 11:33
2003.05.26
Клиент-сервер


3-83356
Apachi
2003-05-06 07:48
2003.05.26
IB работа с датой


14-83713
VEG
2003-05-06 17:09
2003.05.26
Управление PDA


7-83770
X-RayMan
2003-03-29 15:18
2003.05.26
TerminateProcess и разная фигня...


14-83648
Vlad Oshin
2003-05-05 12:58
2003.05.26
Переставил OSь, забыл импортнуть из аськи, всех посеял :(