Ana Form içinden MDIChild form içindeki Button Kontrolü!...

[sertkayasalih]

Herkese Merhaba,

- "MDIChild" yazarak forumda aradım, 53 sonuç çıktı. Hepsini tek tek okudum benim sorunumala ilgili makale bulamadım.

- Projemde, AnaForm(fsMDIForm)daki Sliderın pozisyonunu değiştirerek, Form2(MDIChild) içindeki Sliderin pozisyonunu kontrol etmek istiyorum.

Kod: Tümünü seç

procedure TAnaForm.SliderChange(Sender: TObject);
var
 i : integer;
begin
   for i := 0 to (MDIChildCount-1) do
   if (MDIChildren[i].Name = 'Form2') then Form2.Slider.Position := slider.Position ;
end;

- İstediğimi yukardaki kodla yapmaya çalışıyorum, hata mesajı yok fakat Form2(MDIChild) deki Slider pozisyonu değişmiyor!

- Hatalı yaptığım birşey mi var? Veya başka yol var mı?

Yardımcı olan herkese şimdiden çok teşekkür ederim

[sertkayasalih]

Merhaba,

- Sorunumu aşağıdaki kodla halletim.

Kod: Tümünü seç

procedure TAnaForm.SliderChange(Sender: TObject);
var
 i : integer;
begin
   for i := 0 to MDIChildCount-1 do
   begin
      if (MDIChildren[i].Caption = 'Form2') then
      Break;
   end;
   if (i = MDIChildCount) then Dec(i);
   if (MDIChildren[i].Caption = 'Form2') then
   begin
     with (MDIChildren[i] as TForm2).Slider do
     Position := Slider.Position ;
   end;
end;

- Başka alternatif çözüm yolları var mı?