Sampron
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses
CommCtrl;
procedure CreateHint(Wnd: HWND; Text: PChar);
var
HintWnd: HWND;
ti: TToolInfo;
begin
InitCommonControls;
HintWnd := CreateWindowEx(0, 'tooltips_class32', nil, TTS_ALWAYSTIP, 0, 0, 0, 0, 0, 0, hInstance, nil);
ti.cbSize := SizeOf(TToolInfo);
ti.uFlags := TTF_IDISHWND or TTF_SUBCLASS;
ti.uId := Wnd;
ti.hInst := hInstance;
ti.lpszText := Text;
SendMessage(HintWnd, TTM_ADDTOOL, 0, integer(@ti));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateHint(Button1.Handle, 'API Hint');
end;
|
