panel uzerinde buton

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
korendon1971
Üye
Mesajlar: 52
Kayıt: 03 May 2005 06:16

panel uzerinde buton

Mesaj gönderen korendon1971 »

merhabalar arkadaslar.
Benim formda birden fazla panel ve butonum var.Butonlar hareket edebiliyor.Size sorum butonun,panelin içinde taşmadan üzerinde olup olmadığını nasıl bulabilirim.hazır fonksiyonu varmıdır.Left rigthlarla biraz uzun oluyor. Teşekkürler.....
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

sender kullanarak tek bir fonksiyon ile hepsini kontrol edebilirsiniz :?
soruyu yanlışta anlamış olabilirm, uzun yoldan kastınız nedir, nasıl yapmıştınız :?:
.-.-.-.-.-.-.-. ^_^
korendon1971
Üye
Mesajlar: 52
Kayıt: 03 May 2005 06:16

Mesaj gönderen korendon1971 »

satranc tahtasını örnek vermek istiyorum.herbir kare panel olsun.bunun üzerindeki butonun panelin içende yer alıp almaması alıyorsa hangi buton olduğunu öğrenmek istiyorum.umarım anlatabilmişimdir.Teşekkürler.
Kullanıcı avatarı
Opt2000
Üye
Mesajlar: 216
Kayıt: 09 Tem 2003 10:04

Mesaj gönderen Opt2000 »

Selam,

BoundsRect diye bir özellik var. Bu özellik, bileşenin, atasına göre Left, Top, Right ve Bottom değerlerini tutar. Yapman gereken sadece karşılaştırmak istediğin bileşenlerin BoundsRect özelliklerini, IntersectRect fonksiyonuna göndermek.

Kolay gelsin,
Bahadır Alkaç
korendon1971
Üye
Mesajlar: 52
Kayıt: 03 May 2005 06:16

Mesaj gönderen korendon1971 »

Teşekkür ederim.intersectrecti denemedim ama böyle yaptım.
var
a:tpanel;

begin

unionrect(a,panel1.boundsrect,button1.boundsrect);
if equalrect(a,panel1.boundsrect) then showmessage('buton1 panelin içinde') else showmessage('dışında');

end;
Cevapla