Posted in Duniaku, Untukmu

Membuat Balon Pada Button Klik

Haloo, jumpa lagi dengan saya nah  ini setelah melalui proses yang saaaaaaaaaangat panjang akhirnya bisa juga menyelesaikan program terakhir tugas dari dosen pemrogaman komputasi ini, nah tugasnya menjelaskan tentang bagaimana membuat ballon pada button klik , caranya mudah kita buka delphi –> new form, kemudian klik button pada toolbar dan klik lagi pada form program maka akan muncul seperti berikut :

Setelah itu klik dua kali pada button maka disitu akan muncul unit yang harus di isi syntax sebagai berikut :

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Commctrl;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

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;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowBalloonTip(Button1, 1, ‘Title’,

  ‘horeeee ILMII berhasil ^,^’, clYellow, clNavy);

end;

 

end.

Setelah itu run dengan mengklik F9, makan program akan muncul seperti ini :

Baik, mungkin itu saja selanjutnya silahkan mencoba🙂

Penulis:

sooner or later it's over

18 thoughts on “Membuat Balon Pada Button Klik

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s