Delphi Mouse Over

Hari ini kita akan belajar Delphi lagi yang tentunya dapat menambah ilmu kita .. .

Pada bab ini saya kan membagikan tutorial membuat tulisan di delpi menjadi seperti link

Atau biasa disebut mouse over . .

Jika anda bingung seperti ini kira2 image nya :

Sebelumnya anda klik 2X mouseMove di Tab event

Juga mouse leave di tab event juga . .

Langsung saja anda copy listing Program nya dibawah ini :

{$R *.dfm}

 

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label1.Font.Size := 18;

Label1.Font.color := clRed;

Label1.Font.Style := [FsBold,FsUnderline];

end;

procedure TForm1.Label1MouseLeave(Sender: TObject);

begin

Label1.Font.Size := 14;

Label1.Font.color := clWindowText;

Label1.Font.Style := [];

end;