Tweet
Hallo Leute mit folgender Porcedure erstelle ich ein Tabsheet auf einer PageControl und auf diesem Tab lege ich ein Memo ab. Nun möchte ich auf dieses Memo zugreifen können, weiß aber nicht wie ich das angehen soll, da ich ja 20 Tab und dann auch 20 Memos haben könnte. Wie macht man das eigentlich? Über TabIndex? Danke für Eure Hilfe. Ich will im Prinzip das Memo Clearen oder LoadfromFile ausführen usw.
<pre>
procedure TForm1.NewPage(Name:string);
var
Tab:TTabSheet;
Memo:TMemo;
begin
NewCount:=NewCount +1; //globale variable
Name:='unbenannt' + inttostr(NewCount);
//unbenannte page basteln
Tab := TTabSheet.Create(Form1);
Tab.PageControl := Form1.PageControl1;
Tab.Caption :=(Name);
Tab.PageControl.ActivePageIndex := Tab.PageControl.PageCount - 1;
Memo:=TMemo.Create(Form1);
with Memo do
begin
Parent:=PageControl1.Pages[Tab.PageControl.PageCount - 1];
Align:=alClient;
ScrollBars:=ssVertical;
end;
end;
</pre>
<pre>
procedure TForm1.NewPage(Name:string);
var
Tab:TTabSheet;
Memo:TMemo;
begin
NewCount:=NewCount +1; //globale variable
Name:='unbenannt' + inttostr(NewCount);
//unbenannte page basteln
Tab := TTabSheet.Create(Form1);
Tab.PageControl := Form1.PageControl1;
Tab.Caption :=(Name);
Tab.PageControl.ActivePageIndex := Tab.PageControl.PageCount - 1;
Memo:=TMemo.Create(Form1);
with Memo do
begin
Parent:=PageControl1.Pages[Tab.PageControl.PageCount - 1];
Align:=alClient;
ScrollBars:=ssVertical;
end;
end;
</pre>
Comment