Jappz, det e en baggis...
procedure Tform1.Button1Click(Sender: TObject);
var i:integer;
begin
For i:=0 to componentcount-1 do
begin
If Components is TPanel then
begin
TPanel(Components).Caption:='';
end;
end;
end;
Den här rutinen går igenom alla komponenter på formuläret "Form1" och letar efter paneler. Hittar den en sådan nollställs caption för panelen.
------------------
winne.net