Membuat Balloon Tooltips dengan Delphi

Membuat Balloon Tooltips dengan Delphi. Sekarang Ane dapet Coding Tentang TollTips, tentunya dah pada tau apa itu ToolTips. Ane gx bisa banyakbicara ini itu karena gx bisa mengarang.hehe... langsung saja simak codingnya.

Pertama tambahkan pada uses Commctrl dan selanjutnya buat Procedure dibawah ini :

procedure ShowBalloonTip(Control: TWinControl; Icon: integer; Title: pchar; Text: PWideChar;BackCL, TextCL: TColor);
const
  TOOLTIPS_CLASS = 'tooltips_class32';
  TTS_ALWAYSTIP = $01;
  TTS_NOPREFIX = $02;
  TTS_BALLOON = $40;
  TTF_SUBCLASS = $0010;
  TTF_TRANSPARENT = $0100;
  TTF_CENTERTIP = $0002;
  TTM_ADDTOOL = $0400 + 50;
  TTM_SETTITLE = (WM_USER + 32);
  ICC_WIN95_CLASSES = $000000FF;
type
  TOOLINFO = packed record
    cbSize: Integer;
    uFlags: Integer;
    hwnd: THandle;
    uId: Integer;
    rect: TRect;
    hinst: THandle;
    lpszText: PWideChar;
    lParam: Integer;
  end;
var
  hWndTip: THandle;
  ti: TOOLINFO;
  hWnd: THandle;
begin
  hWnd    := Control.Handle;
  hWndTip := CreateWindow(TOOLTIPS_CLASS, nil,WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP,0, 0, 0, 0, hWnd, 0, HInstance, nil);
  if hWndTip <> 0 then
  begin
    SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ti.cbSize := SizeOf(ti);
    ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
    ti.hwnd := hWnd;
    ti.lpszText := Text;
    Windows.GetClientRect(hWnd, ti.rect);
    SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
    SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
    SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti));
    SendMessage(hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title));
  end;

end; 

Dan untuk penggunaannya seperti ini :

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShowBalloonTip(BitBtn2, 1, 'Login','Silakan masukan ID dan Password Anda Untuk Login ', clYellow, clNavy);
end; 

Semoga bermanfaat !!

Posted by Antas Delphi on - Rating: 4.5

Title : Membuat Balloon Tooltips dengan Delphi
Description : Membuat Balloon Tooltips dengan Delphi . Sekarang Ane d a pe t C oding Tentang T oll T i p s, tent unya dah pada t au apa itu ToolT i ps ....