Mouse ile form scroll

hicker · Mesaj gönderen **hicker** » 01 Ağu 2003 02:48

Merhaba,
formumun genişliği ekran boyutundan daha büyük olduğu için formda yatay scroll oluşuyor. mouse hareketiyle formun kenarlarına dokunarak scroll işlemi yapılabilir mi? form üzerinde bir sürü bileşen olduğu için form mouse move olayına girmiyor. yardımlarınızı bekliyorum....

Mesaj gönderen **mussimsek** » 01 Ağu 2003 03:01

Merhaba,

olayı biraz daha açık anlatabilir misin? Eğer scroll çıkıyor ise scroll'a tıklayarak formu kaydır.

NOT 1: Bu dizayn olarak, kötü bir dizayn şeklidir. Bence formlar, 800 x 600 büyüklüğünü geçmemeli ve ekranda tam olarak gözükmel. Belki PageControl gibi bir bileşenle gruplama yapıp, ayrı tablarda gösterebilirsin.

Kolay gelsin.

sako · Mesaj gönderen **sako** » 01 Ağu 2003 04:13

windowstate özelliği wsMaximized yapıldığı zaman böyle bir sorunun çıkmamamsı lazım.Formun Borderstyle özelliğini bsnone yaptıysan o nedenle olabilir bahsettiğin durum.

Mesaj gönderen **freeman35** » 01 Ağu 2003 04:13

tabiki yaptırtabilirsin. bunun en sağlam yöntemi mouse a hook atıcaksın, daha sonrada scroll içinde scroll lara mesaj atıcaksın
daha kolay olanıysa Mustafanın dediği

dzaynı 800x600 a göre yapıp büyürse anchor larla align larla orantılı şekilde yerleştirebilirsin
kolay gele

hicker · Mesaj gönderen **hicker** » 01 Ağu 2003 04:32

geçenlerde sorduğum dikey listeleme yapan dbgridi hatırlamışsındır mustafa hocam. datasette 8 field, yanyana da 12 kolon göstermem gerekliydi. pagecontrol lük bi olay yok ortada yani. formum mdichild ve genişlik 12 kolon olduğunda form genişliği 1228 pixel oluyor. ve bu 12 kolon içerisinde bulunan kayıtları drag drop yaparak birbirleri arasında pozisyon değiştirmeye çalışıyodum. drag yaparken 1. kolondaki kaydı 12. kolona atamadık

. sonuç olarak scrolu kaydırmak da zor oluyodu....
kendim kurcalayarak türk usulü bir çözüm buldum ama freemanin söylediği mouse'a hook atma olayını biraz daha açıklayabilirseniz onu da öğrenmek isterim. benim kod çalışmasına rağmen daha kaliteli bir çözüm olduğuna eminim hook atmanın.
aşağıdaki kodu form üzerindeki nesnelerin onmousemove olayına bağladım:
if (mouse.CursorPos.x < 5) and (HorzScrollBar.Position > 4) then
HorzScrollBar.Position := HorzScrollBar.Position - 5;
HorzScrollBar.Range := 1233;
if (mouse.CursorPos.x > Width - 50) and (HorzScrollBar.Position < ClientWidth) then
HorzScrollBar.Position := HorzScrollBar.Position + 5;
HorzScrollBar.Range := 1233;

yardımlarınız için teşekkür ederim....