TabSheet zur Laufzeit eintragen?

[Chemiker]

Hallo Tommy1988,

vielleicht sollt du uns mal die Procedure zeigen, damit man dir gezielt weiterhelfen kann. Du kannst doch im Procedure – Kopf Variablen als var Parameter zurückgeben. Alternativ kann man die Variablen auch unter public in der Form – class anlegen.

Das ist die Procedure zum Erstellen:

Delphi-Quellcode:

procedure MemoErstellen (var MyMemo: TMemo; FileName: String; Tab:TTabSheet);
begin
  MyMemo.parent:= Tab;
  MyMemo.Name:= 'TestMemo';
  MyMemo.SetBounds(16,185,313,185);
  MyMemo.Lines.LoadFromFile(FileName);
end;

Damit wird das Memo aufgerufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemoX: TMemo;
begin
  MemoX:= TMemo.Create(self);
//  MemoX:= TMemo.Create(self);
//  MemoX.parent:= TabSheet2;
//  MemoX.Name:= 'TestMemo';
//  MemoX.SetBounds(16,185,313,185);
//  MemoX.lines.Add ('Zeile 1');
//  MemoX.Lines.Add ('Zeile 2');
//  MemoX.Lines.SaveToFile('C:\temp\test');
//  MemoX.Lines.LoadFromFile('C:\temp\test');
  MemoErstellen (MemoX, 'C:\temp\test', TabSheet2);
end;

Das ist nur ein Beispiel es gibt noch andere Möglichkeiten.

Bis bald Chemiker