Ups...
hab zwar vorher schon eine Weile rumgesucht, aber falsche Schlagwörter verwendet..
Vielen Dank.
Habs jetzt auch mit postMessage gelöst...
Delphi-Quellcode:
Const
WM_DESTROYPANEL = WM_USER+712;
...
procedure CMDestroyPanel(Var Msg : TMessage); message WM_DESTROYPANEL;
Delphi-Quellcode:
Procedure Form.CMDestroyPanel(Var Msg : TMessage);
var i,x:Integer;
Begin
x:=Strtoint(PChar(Msg.WParam));
for i:= 0 to scrollbox1.ComponentCount-1 do
begin
if scrollbox1.components[i] is TLMDSimplePanel then
begin
with (scrollbox1.components[i] as TLMDSimplePanel) do
begin
if tag = x then
begin
(scrollbox1.components[i] as TLMDSimplePanel).free;
break;
end;
end;
end;
end;
end;
Delphi-Quellcode:
procedure Form.killen(Sender: TObject);
var i,x:Integer;
begin
with sender as TLMDSpeedbutton do
begin
what_to_kill:=inttostr(tag);
end;
PostMessage(termin_single_form.Handle,WM_DESTROYPANEL,Integer(@what_to_kill[1]),0);
end;