Paneler

[Niclas Ohlsson]

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

/Nicke

[WiNNe]

Jappz, det e en baggis...

procedure Tform1.Button1Click(Sender: TObject);
var i:integer;
begin
For i:=0 to componentcount-1 do
begin
If Components[i] is TPanel then
begin
TPanel(Components[i]).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 (http://www.winne.net)