hallo
zur Laufzeit erstelle ich ein panel, zwei edit's und einen bitbtn
mit folgenden zeilen:
Delphi-Quellcode:
p:= TPanel.Create(self);
with p do
begin
parent:= self;
p.name:='max';
height:=100;
Width :=200;
Top:= mousePos.x;
left:= MousePos.y;
Ctl3D:=false;
popupmenu:=popupmenu1;
end;
for i:=1 to 2 do
begin
ed:=TEdit.Create(self);
ed.parent:=p;
ed.name:= 'ed' + inttostr(i);
ed.Height:= 20;
ed.Width := 70;
ed.text := '';
with Tedit(FindComponent('ed'+ inttostr(i))) do
begin
case i of
1: begin
top := 10 ;
left := 10 ;
end;
2: begin
top := 12 * i+ height;
left := 10;
end;
end;
end;
end;
btt:=TBitbtn.Create(self);
btt.Parent:= p.Parent;
....
das bedeute ja, das allen den gleichen parent haben, oder?
jetzt möchte ich das Control im OnClick des buttons zerstören. da aber nach löschen kein button mehr da ist, will ich das löschen mit postmessage, an den messageloop anhängen.
ich suche mir das
handle des panels und versuche mit WM_Destroy zu löschen -> klappt nicht
dann mit WM_Close -> da verschwindet das panel, aber der button bleibt
warum????????
raik