Hallo,
Ich versuche gerade ein TEdit zur Laufzeit auf ein TPanel welches auch zur Laufzeit erzeugt wird zu plazieren. Aber es wird nicht angezeigt.
Code:
TPanel.Create(self).Name := 'TXTPAN_100';
with TPanel(FindComponent('TXTPAN_100')) do
begin
Parent := Groupbox2;
BevelInner := bvNone;
BevelOuter := bvNone;
Borderstyle := bsSingle;
Left := 260;
Top := 280;
Height := 25;
Width := 153;
Color := clInfoBk;
Tabstop := False;
end;
TEdit.Create(self).Name := 'TXT_100';
with TEdit(FindComponent('TXT_100')) do
begin
// Parent := Groupbox2;
Parent := TPanel(FindComponent('TXTPAN_100'));
Left := 4;
Top := 4;
Height := 23;
Width := 145;
// Color := clInfoBk;
Color := clRed;
Tabstop := False;
Borderstyle := bsNone;
Text := 'Test1';
end;
Das soll ein Workaround sein um das Tedit optisch vertical zu zentrieren.
Die Positionen sollen dann noch gerechnet werden.
Wenn ich dem TEdit die Groupbox2 als Parent zuweise, erscheint es.
Delphi zeigt keine Fehler, aber TComponent ist wohl nicht TWinControl.
Wie bekommt man das hin?
Grüsse,
Hans-Peter