Hallo. Ich möchte gerne verschieden aussehende MDIChilds zur laufzeit erzeugen. Also habe ich mir gedacht, ich setzte die Komponenten erst im OnCreate-Ereignis ein. Aber irgendwie will das nicht funktionieren. Das Child bleibt leer. Wäre nett, wenn mir jemand weiter helfen könnte.
Gruß CrazyK
Delphi-Quellcode:
var
MyRichEdit: TRichEdit;
MyToolBar: TToolBar;
Delphi-Quellcode:
procedure TMDIChild.FormCreate(Sender: TObject);
begin
MyRichEdit := TRichEdit.Create(self);
MyToolBar := TToolBar.Create(self);
MyRichEdit.Show;
MyToolBar.Show;
MyRichedit.Align := alClient;
MyRichedit.Font.Color := clRed;
MyRichedit.Color := clLtGray;
MyRichedit.Lines.Add('text');
end;