Problem beim finden dynamischer Menüeinträge

[MarcusB]

Hallo,

folgendes Problem:

Ich habe ein dynamisch erzeugtes PopUp-Menü, welches wie folgt erzeugt wurde (Auszug):

Delphi-Quellcode:

    ...
    MyMenuItem := TMenuItem.Create(Feldnamenzuordnen1);
    MyMenuItem.Caption := AdressFields[i];
    MyMenuItem.Tag := i; 
    MyMenuItem.Name := 'Adress_' + IntToStr(i);
    MyMenuItem.OnClick := MyMenuItemClick;
    Feldnamenzuordnen1.Add(MyMenuItem);
    ...

wobei Feldnamenzuordnen1 ein übergeordneter Menüeintrag ist.

In einer Routine will ich überprüfen, ob bestimmte Untermenüpunkte schon mal angeklickt wurden, um dann die Eigenschaft checked entweder auf true oder false zu setzen.

Dazu wollte ich

Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)).checked := true; verwenden. Das klappt leider nicht!

Komischerweise funktioniert folgendes aber:

ShowMessage(Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)).name); Was mach ich schon wieder falsch

[mirage228]

Hi,

FindComponent liefert dir lediglich eine "TComponent" zurück. Für Deine Checked Eigenschaft brauchst Du also ein TMenuItem:

(Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)) as TMenuItem).checked := true mfG
mirage228

[roderich]

dir fehlt ein Type-cast

  (Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)) as TMenuItem).checked := true; generell wäre man aber vor dem Type-cast auf der sicheren Seite mit der Abfrage

Delphi-Quellcode:

  if (Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)) is TMenuItem) then
     ...

daß die 1. Anweisung nicht funktioniert, aber die 2. Anweisung mit ShowMessage funktioniert, liegt daran, daß eine Komponente eine Property "name" besitzt, aber keine Property "Checked".

Roderich

[mirage228]

Zitat von roderich:

dir fehlt ein Type-cast

  (Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)) as TMenuItem).checked := true; generell wäre man aber vor dem Type-cast auf der sicheren Seite mit der Abfrage

Delphi-Quellcode:

  if (Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i)) is TMenuItem) then
     ...

Jupp,

aber der AS-Operator führt intern bereits ein IS aus (und löst ggf. ein EInvalidCast aus), soweit ich weiss.
Daher sollte man. wenn man schon mit IS prüft, dann auch direkt type-casten, also so (ich würde mir dann das doppelte findcomponent sparen):

Delphi-Quellcode:

var
  Comp: TComponent;
begin
  Comp := Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i));
  if (Comp is TMenuItem) then
    TMenuItem(Comp).Checked := True;
end;

mfG
mirage228

[MarcusB]

Ich liebe Euch alle

Es funktioniert

[jim_raynor]

Zitat von mirage228:

Jupp,

aber der AS-Operator führt intern bereits ein IS aus (und löst ggf. ein EInvalidCast aus), soweit ich weiss.
Daher sollte man. wenn man schon mit IS prüft, dann auch direkt type-casten, also so (ich würde mir dann das doppelte findcomponent sparen):

Delphi-Quellcode:

var
  Comp: TComponent;
begin
  Comp := Feldnamenzuordnen1.FindComponent('Adress_' + IntToStr(i));
  if (Comp is TMenuItem) then
    TMenuItem(Comp).Checked := True;
end;

mfG
mirage228

Jupp. Ich bestätige es einfach mal.