At 12:35 am 10.08.01, you wrote:
> i := MainPanel.ControlCount - 1;
> while i >= 0 do
> begin
> if (MainPanel.Controls[i] is TfcShapebtn) or
> (MainPanel.Controls[i] is TfcLabel) then
> MainPanel.Controls[i].Free;
> i := i - 1;
> end;
Not sure, but try..
(MainPanel.Controls[i] as TfcShapebtn).Free;
Steve
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
