Bu dersimizde form resize olayından bahsedeceğiz. Peki, nedir form resize olayı? Bu olay formumuzun boyutlarını değiştirme olayıdır. Bir örnek yaparak bu olayı anlatacağım.
Bu örneğimizde formumuzda bulunan nesneler, formun boyutlarını küçülttüğümüzde küçülecek formun boyutlarını büyülttüğümüzde büyüyecek.
Ben formuma bir panel ,bir memo ve iki tanede buton ekledim.
Forumdaki her elemanın kendi arasında ve formla arasında 10 piksel boşluk olmasını istiyorum. Önce formun boyutlarını hesaplayalım.
Form'un Create olayına aşağıdaki kodu yazıyoruz.
form1.ClientHeight := panel1.Height memo1.Height button1.Height 40;
form1.ClientWidth := panel1.Width 20;
{kodların sonundaki 40, 20 gibi rakamlar nesneler arasındaki ve form kenarları
arasaındaki başlukların piksel cinsinden toplamı}
Form'un Resize olayına ise aşağıdaki kodları yazalım.
if form1.ClientWidth<200 then form1.ClientWidth:=200;//ClientWidth: Formun başlık ve çerçevesini çıktığımzda kullanılan genişlik demek
if form1.ClientHeight<200 then form1.ClientHeight:=200;
panel1.Left:=10;
panel1.Top:=10;
panel1.Width:=form1.ClientWidth-20;
memo1.Left := 10 ;
memo1.top := panel1.Height 20 ;
memo1.Width := form1.ClientWidth - 20;
memo1.Height := form1.ClientHeight - (40 panel1.Height button1.Height);
{memo nun yüksekliğini hesaplamak için form daki diğer elemanların yüksekliği ile
boşlukları toplayım formun kullanılan genişliğinden çıkardım}
button1.left := 10;
button1.Top := panel1.Height memo1.Height 30 ;
button1.Width := (form1.ClientWidth-30) div 2 ;//İki tane butonum olduğu için boşlukları çıkıp ikiye böldüm
button2.left := button1.width 20 ;
button2.Top := panel1.Height memo1.Height 30 ;
button2.Width := (form1.ClientWidth-30) div 2 ; //İki tane butonum olduğu için boşlukları çıkıp ikiye böldüm
Artık uygulamamız hazır.
Son olarak nesnelerimizin üzerinde boyutlarının kaça kaç olduğunu yazdıralım. Bunun içinde aşağıdaki kodları form Resize olayına yazdığımız kodların altına ekliyoruz.
form1.caption:= (inttostr(form1.ClientWidth) ' x ' inttostr(form1.ClientHeight));
panel1.Caption:=(inttostr(panel1.Width) ' x ' inttostr(panel1.height));
memo1.text:=(inttostr(memo1.Width) ' x ' inttostr(memo1.height));
button1.Caption:=(inttostr(button1.Width) ' x ' inttostr(button1.height));
button2.Caption:=(inttostr(button2.Width) ' x ' inttostr(button2.height));
Kaynak dosyayı indirmek için tıklayın