Скачать: CL | DM;

Hint с кнопкой закрытия   Найти похожие ветки 

← →
webpauk   (2005-08-10 12:21) [0]

Видел такую примочку для иконок в трэе. Есть ли такая штукенция для работы в качестве стандартного хинта?

---

← →
Igor_thief   (2005-08-10 15:36) [1]

Нету.

Balloon tooltips.

---

← →
Наиль ©   (2005-08-10 23:14) [2]

Никогда ни портил хинты. Но 2х минут на это хватило. Посмотри этот код.
unit Unit3;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, publ, StdCtrls;

type

 TForm2 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 TMyHint=Class(THintWindow)
 private
  Button:TButton;
 public
  constructor Create(AOwner: TComponent); override;
 End;
var
 Form2: TForm2;

implementation

{$R *.dfm}

{ TMyHint }

constructor TMyHint.Create(AOwner: TComponent);
begin
inherited;
Button:=TButton.Create(self);
Button.Width:=10;
Button.Height:=10;
Button.Parent:=self;
end;

initialization
HintWindowClass:=TMyHint;
end.

Не забудь поставить ShowHint:=true  и какой-нибудь текст в Hint.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c