Hallo! Ich würde gerne während der Laufzeit mehrere Formular mit 2 Memofeldern erstellen. Dazu habe ich den folgenden Code geschrieben:
Delphi-Quellcode:
procedure TfrmMain.FormErstellen(Titel: string);
var
Form1: TForm;
memoVerlauf, memoText: TMemo;
begin
Form1 := TForm.Create(Self);
try
with Form1 do
begin
////////////////////////
// ALLE EIGENSCHAFTEN //
////////////////////////
//FARBE//
Form1.Color := frmRustCQ.Color;
Form1.Caption := Titel;
// 2 Memofelder//
memoVerlauf := TMemo.Create(self);
memoText := TMemo.Create(self);
with memoVerlauf do
begin
Left := 8;
Top := 8;
Height := 117;
Width := 345;
end;
with memoText do
begin
Left := 8;
Top := 216;
Height := 97;
Width := 345;
end;
//MITTE//
Form1.Left := (Screen.Width div 2) - (Form1.Width div 2);
Form1.Top := (Screen.Height div 2) - (Form1.Height div 2);
////////////////////////
show;
end;
finally
end;
end;
Das Formular wird angezeigt, nur die 2 Memofelder nicht. Vielleicht liegt es daran, dass ich den memofeldern nicht gesagt hab, dass sie zum formular gehören, doch wie geht das!?
Thx schonma
