Memos zur laufzeit erzeugen und in *.ini abspeichern

[marabu]

Zitat von DannyK.II:

Und wie sprech ich dann die Memofelder an??

Ist doch die einzige Komponente auf dem TabSheet, also kannst du sie so ansprechen:

Delphi-Quellcode:

var
  ts: TTabSheet;
  memo: TMemo;
begin
  with PageControl do begin
    // PageControl.OnChanging()
    ts := Pages[TabIndex];
    memo := ts.Controls[0] as TMemo;    

    // PageControl.OnChange()
    memo := ActivePage.Controls[0] as TMemo;
  end;

Solltest du mehrere Komponenten auf einer Page haben, dann kannst du durch das Controls-Array iterieren und auf Controls[i] is TMemo testen. Für die Methode PageControl.ActivePage.FindChildControl() bräuchtest du allerdings dann den Namen deines aktuellen Memos.

Ich würde an deiner Stelle nur ein einziges Memo instanziieren und im Ereignis PageControl.OnChange() dieses Memo dann auf der richtigen Page einblenden.

Memo.Parent := PageControl.ActivePage; Grüße vom marabu