Форум: "Основная";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c