Zugriff auf aktuelles MDI-Child und seine Komponenten

[Florian Bernhardt]

Hi!

Ich habe folgendes Problem:

Die Unterfenster meiner MDI-Anwendung beinhalten ein TMemo. Nun soll aber mit einer Buttonleiste aus dem MainForm auf das jeweilig aktivierte Memo zugegriffen werden, was aber nicht soo ganz klappt.

Ich kann den Befehl "ActiveControl" ja leider nicht benutzen, weil der Fucos ja beim Drücken das Buttons wegspringt.

Hab leider auch in meinen Büchern nix dazu gefunden.

Gruss Florian

[Bernd Schulz]

Hi!<br>
Der Code basiert auf den Standardnamen, den Delhi für ein neues MDI-Projekt vergibt.<br>
In der MDI Anwendung benötigts Du eine Variable und eine neue Procedure:<br>
procedure IchBinDerLetzte ( fenster : TForm );<br>
LastFenster : TForm;<br>
<br>
procedure TMainForm.IchBinDerLetzte ( fenster : TForm );<br>
begin<br>
LastFenster := fenster;<br>
end;<br>
<br>
Im MDI-Child verwendest Du das Ereignis OnDeactivate. Das muß dann das letzte (aktive) Child gewesen sein!<br>
TMainForm(Application.MainForm).IchBinDerLetzte ( self );<br>
<br>
Und das Hauptfenster ist immer darüber informiert wer das letzte Child war.<br>
showmessage( TMDIChild(LastFenster).Memo1.lines[0] );<br>
<br>
BYE BERN