Zitat von
toms:
if Panel_MSST.Controls[i] is TShape then
Nachtrag:
Nach der "is"-Überprüfung kannst du anstatt eines Soft Casts einen Hard Cast machen:
Also anstatt:
Delphi-Quellcode:
if Panel_MSST.Controls[i] is TShape then
begin
Dummy_Shape := Panel_MSST.Controls[i] as TShape;
end
so:
Delphi-Quellcode:
if Panel_MSST.Controls[i] is TShape then
begin
Dummy_Shape := TShape(Panel_MSST.Controls[i]);
end