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

Вниз

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

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

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

---

← →
R ©   (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.041 c