ToolTips -- ajudaa.?
geentee;
sou iniciante em delphii ee preciso de uma ajudiinha .!
tem alguma forma de mostrar um ToolTips sem precisar passar o mouse no componente;!
eah oo seguinte; eu queriia que na tela de login ; ao clicar confirmar, nas edits que estivessem vazias aparecesse um ToolTip avisando o usuario;
obriigadiinha desde já.!
=*
unit Ulogin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Commctrl; type Tfmlogin = class(TForm) lblusuario: TLabel; lblsenha: TLabel; lblredsenha: TLabel; edtusuario: TEdit; edtsenha: TEdit; btnconfirmar: TButton; procedure btnconfirmarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; const TTS_BALLOON = $40; TTM_SETTITLE = (WM_USER + 32); var fmlogin: Tfmlogin; hTooltip: Cardinal; ti: TToolInfo; buffer : array[0..255] of char; implementation {$R *.dfm} procedure CreateToolTips(hWnd: Cardinal); begin hToolTip := CreateWindowEx(0, 'Tooltips_Class32', nil, TTS_ALWAYSTIP or TTS_BALLOON, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), hWnd, 0, hInstance, nil); if hToolTip <> 0 then begin SetWindowPos(hToolTip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); ti.cbSize := SizeOf(TToolInfo); ti.uFlags := TTF_SUBCLASS; ti.hInst := hInstance; end; end; procedure AddToolTip(hwnd: dword; lpti: PToolInfo; IconType: Integer; Text, Title: PChar); var Item: THandle; Rect: TRect; begin Item := hWnd; if (Item <> 0) AND (GetClientRect(Item, Rect)) then begin lpti.hwnd := Item; lpti.Rect := Rect; lpti.lpszText := Text; SendMessage(hToolTip, TTM_ADDTOOL, 0, Integer(lpti)); FillChar(buffer, sizeof(buffer), #0); lstrcpy(buffer, Title); if (IconType > 3) or (IconType < 0) then IconType := 0; SendMessage(hToolTip, TTM_SETTITLE, IconType, Integer(@buffer)); end; end; procedure Tfmlogin.btnconfirmarClick(Sender: TObject); const TipoDoIcone = 3; begin if edtusuario.Text='' then begin CreateToolTips(fmlogin.Handle); //A linha abaixo usa o hint definido no objeto AddToolTip(edtusuario.Handle, @ti, TipoDoIcone, PChar(edtusuario.hint), 'Erro!'); end; end; end.
Priscila
Curtidas 0