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
0 comments:
Yorum Gönder