Image’larda BallonHint Kullanımı 

Merhaba arkadaşlar bu makalemizde mouse imleci resim üzerine gelindiğinde mesajın görülmesini sağlayacağız. Resim üzerinden mouse imlecimizi aldığımızda mesaj yazısı otomatik gidecek.

Bunun için Palette kısmından formumuza 1 adet Image ve 1 adet BallonHint ekliyoruz.

Şekil 1

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.jpeg;

type

TForm1 = class(TForm)

BalloonHint1: TBalloonHint;

Image1: TImage;

procedure Image1MouseLeave(Sender: TObject);

procedure Image1MouseEnter(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseEnter(Sender: TObject);

begin

BalloonHint1.Title := 'V for Vendetta';

BalloonHint1.Description := ' V Anonymous ';

BalloonHint1.Style := bhsBalloon;

BalloonHint1.ShowHint(Image1);

BalloonHint1.ShowHint(ClientToScreen(Tpoint.Create(Image1.Left+250,Image1.Top+150)));

end;

procedure TForm1.Image1MouseLeave(Sender: TObject);

begin

Balloonhint1.HideHint;

Balloonhint1.Style := bhsStandard;

BalloonHint1.HideAfter := 2000;

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN