mause butonun üzerine geldiğinde

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
@kiF
Üye
Mesajlar: 15
Kayıt: 11 Kas 2005 10:21
Konum: İST

mause butonun üzerine geldiğinde

Mesaj gönderen @kiF »

mause butonun üzerine geldiğinde label caption değişebilir mi? nasıl yapabilirim bunu?
--
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

Mesaj gönderen selman »

selam
label ın mause move özelliğinden yaralanabilirsinizi.
Kullanıcı avatarı
bobasturk
Kıdemli Üye
Mesajlar: 1387
Kayıt: 20 May 2004 08:39
Konum: Düzce

Mesaj gönderen bobasturk »

merhaba,

button un onmousemove eventini kullanarak yapabilirsin

Kod: Tümünü seç

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.Caption:='merhaba';
end;
kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.

Resim
Kullanıcı avatarı
Opt2000
Üye
Mesajlar: 216
Kayıt: 09 Tem 2003 10:04

Mesaj gönderen Opt2000 »

selam,

OnMouseMove ile yaparsan, mouse her hareket ettiğinde butonun caption'ı değiştirilir, bu da titreme yapabilir. Ayrıca mouse'un, butonun üzerinden çıktığını da anlayamazsın. Senin yapman gereken, butona gelen CM_MOUSEENTER ve CM_MOUSELEAVE mesajlarını yakalamak. Sanırım hem bu forumda, hem de internette bununla ilgili yüzlerce örnek bulabilirsin.

Kolay gelsin
Kullanıcı avatarı
bobasturk
Kıdemli Üye
Mesajlar: 1387
Kayıt: 20 May 2004 08:39
Konum: Düzce

Mesaj gönderen bobasturk »

merhaba,

ben çalışmalarımda böyle bir görsellik yapmak istediğimde bu yöntemi kullanıyorum. mouse button üzerine gelince label veya button üzerindeki yazı farketmez değiştiriyorum. buttonun leave özelliği olmadığından buttonun üzerinde bulunduğu panel veya formun onmousemove olayına button veya label de yapmak istediğimi yazıyorum.

kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.

Resim
mcihad
Üye
Mesajlar: 283
Kayıt: 18 Tem 2003 03:28
Konum: Sivas

Mesaj gönderen mcihad »

procedure UzerineGelince (Message : TMessage ) message WM_MOUSEENTER;

procedure UzerindenGidince (Message:TMessage) message WM_MOUSELEAVE;


Leave ve MouseFocus olaylarını bu şekilde ekleyebilirsin
Cevapla