Panel.Controls auf TShape prüfen

[Helmi]

Hallo,

ich steh grad auf dem Schlauch:

Ich lauf mit einer Schleife über alle Controls dir auf einem Panel liegen
und will vergleichen on ein Control ein TShape ist.

Irgendwie hab ich momentan einen Gedankenfehler.

Delphi-Quellcode:

  
for i := 0 to Pred(Panel_MSST.ControlCount) do
    begin
      Dummy_Shape := Panel_MSST.Controls[i] as TShape;  //funkioniert nicht

Wie kann ich prüfen ob das Control ein TShape ist.

BTW.: Ich hab schon Panel.Components ausprobiert
aber das funktioniert nicht (ComponentsCount = 0)

[toms]

Delphi-Quellcode:

if Panel_MSST.Controls[i] is TShape then

[Helmi]

Danke! :thumb:

is gibts ja auch noch :-)

[toms]

Zitat:

Zitat von toms

Delphi-Quellcode:

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

[Helmi]

Danke!