Ładny brzuch

Nie wiem jak wskaza formie 'MainForm', ktre okno dziecko 'Child' jest aktywne. Prbuj to zrobi tak:
procedure TMainForm.FileSave1Execute(Sender: TObject); var Child:TMDIChild; begin  //Jak przypisa aktywne dziecko do zmiennej Child?  //TMDIChild jest klasy TForm  //Child:=??????;  if savedialog1.Execute then    begin      If Child.RichEdit1.Lines[0]<>'src.txt' then        begin          Child.RichEdit1.Lines.SaveToFile(ExtractFileName(savedialog1.FileName+'.txt'));        end      else        begin          showmessage('Nie ma pliku do zapisania. Zapisa mona tylko przetworzone pliki .src.');        end;    end; end;

Po skompilowaniu pojawia si komunikat:
[Warning] MAIN.PAS(125): Variable 'Child' might not have been initialized

Po uruchomieniu natomiast:
Project Project1.exe raised exception class EAccessViolation
with message 'Access violation at address 0046B09C in module
'Project1.exe'. Read of address 00000304'. Process stopped.
Use Step or Run to continue.

Program mona puci dalej, ale pliku i tak nie zapisze.
Prosz o pomoc.


Moe chodzi ci o Screen.ActiveForm?

http://www.webport.pl
http://www.emiks.due.pl

   Child := TMDIChild(MainForm.ActiveMDIChild);  if Child = nil then    exit;  //...

pozdrawiam
pepsi^no1

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •