Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Текст как ссылка   Найти похожие ветки 

 
Sonic_gd   (2004-10-19 13:38) [0]

Уважаемые Мастера подскажите пожалуйста как в Delphi на форме сделать текст который при наведении на него мышкой подчёркивается как ссылка в HTML а при нажатии запускает необходимый файл. У меня на форме находится TImage так мне нужно чтоб этот текст на этой картинке был просто как ссылка т.е. был без бэкграунда просто текст на картинке а при наведении - ссылка. Если можно то побыстрее.


 
©   (2004-10-19 13:49) [1]

procedure CMMouseEnter(var Message: TMessage);message CM_MOUSEENTER;
   procedure CMMouseLeave(var Message: TMessage);message CM_MOUSELEAVE;

ShellExecute


 
Kolan ©   (2004-10-19 13:53) [2]

Используй onMouseEnter и onMouseLeave
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color:=clRed;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clBlack;
end;

Вместо цвета подчеркивай.

> т.е. был без бэкграунда просто текст на картинке а при наведении
> - ссылка.


Фон сделай прозрачным - Transparent - true


 
Kolan ©   (2004-10-19 14:04) [3]

Подчеркивать так label1.Font.Style:=[fsUnderline];


 
Pentium133 ©   (2004-10-19 14:24) [4]

procedure TfAbout.Label3Click(Sender: TObject);
begin
 case TLabel(Sender).Tag of
   1: ShellExecute(GetDesktopWindow, "open",
      PChar("mailto:" + TLabel(Sender).Caption), nil, nil, sw_ShowNormal);
   2: ShellExecute(GetDesktopWindow, "open",
      PChar(TLabel(Sender).Caption), nil, nil, sw_ShowNormal);
 end;
end;

procedure TfAbout.Label3MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
   with TWinControl(Sender) do
     SetBounds(Left + 1, Top + 1, Width, Height);
   FDown := True;
end;
end;

procedure TfAbout.Label3MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if FDown then
 begin
   with TWinControl(Sender) do
     SetBounds(Left - 1, Top - 1, Width, Height);
   FDown := False;
 end;
end;

procedure TfAbout.Label3MouseEnter(Sender: TObject);
begin
with (Sender as TLabel) do
 begin
   Font.Style := [fsUnderline];
   Cursor := crHandPoint;
 end;
end;

procedure TfAbout.Label3MouseLeave(Sender: TObject);
begin
with (Sender as TLabel) do
 begin
   Font.Style := Font.Style - [fsUnderline];
   Cursor := crDefault    
 end;
end;


Вопросы есть?



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

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.032 c
1-1098133413
Helios
2004-10-19 01:03
2004.10.31
HTML


4-1096000894
snake1977
2004-09-24 08:41
2004.10.31
Контекстное меню для каталога


14-1097469635
Layner
2004-10-11 08:40
2004.10.31
SP2 на XP, последствия...


1-1097829218
ghg
2004-10-15 12:33
2004.10.31
дин.массивы и указатели


14-1097631755
Думкин
2004-10-13 05:42
2004.10.31
С днем рождения! 13 октября





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский