Paneler

Går det att sätta alla panelers "Caption" till '' med lite kod
Isåfall hur???

/Nicke

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