| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Hint с кнопкой закрытия [D6, WinXP]

webpauk ©   (2005-08-10 12:21:00) 

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

---

Наиль   (2005-08-10 23:14:00) [1]

Никогда ни портил хинты. Но 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.

---

Igor_thief   (2005-08-10 15:36:00) [2]

Нету.

Balloon tooltips.

---

Наверх