Tedit in Tpanel

[Nimoee]

Hallo,

ich möchte eine Komponente erzeugen, mit tpanel als Rahmen und in diesem Panel ein Editfeld mit Tlabel als Text davor.
Mein Problem:
In die Create Methode von Tpanel hab ich

Delphi-Quellcode:

constructor Tkombiedit.Create(AOwner: TComponent);
begin
  inherited;
  s:=tedit.create(self);
  s.parent:=parent;
  s.left:=10;
  s.top:=10;
  s.height:=20;
  s.width:=100;
end;

geschrieben.
Es klappt jedoch nicht. Kann mir jemand helfen?
Was ist da falsch?

nimoee

[Christian Seehase]

Moin Nimoee,

Du hast zwar nicht dazugeschrieben, was nicht funktioniert, aber ich rate mal:

Durch diese Zeile

Delphi-Quellcode:

s.parent:=parent;

wird der Parent des Panels als Parent des Edits gesetzt.
Das Editfeld wird dadurch relativ zum Parent des Panels angezeigt, und nicht relativ zum Panel.

So

Delphi-Quellcode:

s.parent:=self;

sollte es eigentlich funktionieren.