Button auf Panel - via ButtonOnClick das Panel löschen...

[erich.wanker]

Hallo liebes Forum,

ich hab da ein kleies Problem..

Ich erstelle zur Laufzeit einige Panels mit aufsteigendem Tag-Wert.
Gleichzeitig bekommt ein jedes Panel einen Button mit dem gleichen Tag-Wert wie das Panel
Ein jeder Button ruft procedure"killen" auf

Wenn nun ein Button gedrückt wird, lese ich seinen Tag-Wert aus und suche das zugehörige Panel und lösche es..
und genau beim "free" strudelt´s die Procedure..

Wenn ich eine globale Variable mit dem zu löschenden Panel definiere - einen Timer starte und zeitversetzt das Panel lösche - funktionierts natürlich .. aber diesen Weg find ich nicht gut..

Hat jemand einen Lösungsansatz ?

Vielen Dank

Erich

procedure Tform.killen(Sender: TObject);
var i,x:Integer;
begin

with sender as TLMDSpeedbutton do
begin
x:=tag;
end;

for i:= 0 to scrollbox1.ComponentCount-1 do
begin
if scrollbox1.components[i] is TLMDSimplePanel then
begin
if (scrollbox1.components[i] as TLMDSimplePanel).tag = x then
begin
(scrollbox1.components[i] as TLMDSimplePanel).free; // <- Fehler !
break;
end;
end;
end;

end;