Form, hatta daha iç seviyede düşünürsek Chart'ların parenti olan panel vb. TWinControl olan hangisiyse, onun OnResize isimli bir eventi vardır illa ki...
OnResize olayına şu aşağıdaki kodu düzenleyin
Aşağıdaki örnekte Form'un OnResize eventine koysak da, eğer form altında Panel de yeniden boyutlanıyor ise, PARENT olarak ilgili panel vardır.
Bu durumda ölçümde formun değil PARENT neyse onun ClientWidth özelliği değerlendirmeye alınır.
Yani daima hep Chart1 ve Chart2'nin içinde olduğu TWinControl değerlendirmeye alınarak doğru şekilde ekranda ikiye bölünecektir.
OnResize olayına şu aşağıdaki kodu düzenleyin
Aşağıdaki örnekte Form'un OnResize eventine koysak da, eğer form altında Panel de yeniden boyutlanıyor ise, PARENT olarak ilgili panel vardır.
Bu durumda ölçümde formun değil PARENT neyse onun ClientWidth özelliği değerlendirmeye alınır.
Yani daima hep Chart1 ve Chart2'nin içinde olduğu TWinControl değerlendirmeye alınarak doğru şekilde ekranda ikiye bölünecektir.
procedure TForm1.FormResize(Sender: TObject); var LWidth : Integer; begin LWidth := trunc( Chart1.Parent.ClientWidth * 0.5 ); Chart1.Width := LWidth; Chart2.Width := LWidth; end;
Saygılarımla
Muharrem ARMAN

Muharrem ARMAN


