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