Skriva text till childwindow i delphi

[Gunnar Slott]

Försöker öppna en textfil i en MDI app i Delphi3. Delphi klagar på "Undeclered identifier:Memo1". Men Memorutan heter Memo1 (delphi default). Här kommer några rader kod som någon vänlig själ kanske kan hjälpa mig med.

 

if OpenDialog.Execute then

CreateMDIChild(OpenDialog.FileName);

ActiveMDIChild.Memo1.Lines.LoadFromFile (OpenDialog.FileName);

 

TIA Gunnar

[Simon Rodriguez]

Hejsan!

 

1: Lägg till en Memo i "MainForm" och döp den till Temp och visible=false

2: Lägg till en Memo i "Childwindow" och döp den till NoUse och visible=false

3: I "OnClick" på Knappen eller vad det nu ska vara så skriver du följande:

 

MainForm.Temp.Lines.Clear;

MainForm.Temp.Lines.Add('DIN TEXT');

ActiveMDIChild.OnActivate(Sender);

 

4: I "OnActivate" på child fönstret skriver du följande:

 

NoUse.Lines.Clear;

If MainForm.Temp.Lines=NoUse.Lines then begin

end

else begin

DIN VISIBLA MEMO.Lines.AddStrings(MainForm.Temp.Lines);

MainForm.Temp.Lines.Clear;

end;

 

5: Klar!!!

 

About

-----

By: Simon Rodriguez (G-Force Studios)

Email: simon_rodriguez@mail.bip.net