MDI Application-da aktiv form-un bulunmasi

[rahim_azeri]

Merhaba arkadaslar..Ben MDI applicationda aktiv olan form-un adini nasil bula bilirim...Mesela 5-6 form acilmis amma aktiv olan forum-un adini nasil bula bilirim. Onceden tesekkurler...!

[ikra]

Kod: Tümünü seç

Anaform.ActiveMDIChild.Name

[rahim_azeri]

Kardesh allah razi olsun şunu bildim....Şimdi ana form-umda bir buton var ben istiyorumki şu butona click edende egre chilFrom2 aktivdirse şu childform2 -deki editbox-a "cf2" yazsin ,eger childform3 aktivdirse onda şu childform3 -de olan editboxa "cf3" ....

[ikra]

ecmain insaAllah.

Kod: Tümünü seç

procedure OnClick(Sender: TObject);
begin
  if AnaForm.ActiveMdiChild is TForm1 then
    TForm1(AnaForm.ActiveMdiChild).Edit1.Text := 'mesaj';

  if AnaForm.ActiveMdiChild is TForm2 then
    TForm2(AnaForm.ActiveMdiChild).Edit1.Text := 'mesaj';
end;