[Chydik]

Динамически создаю список элементов попап меню и задаю свои заголовки, при это все нормально и отображаются корректно, но при попытке обращения к ним по клику (TMenuItem(Sender).Caption ) получается какой-то бред (типа: дD) . Может кто сталкивался? А нето вообще без идей уже

Так создаю:

Код:

while i <= tempst.Count - 1 do
        Begin
          if  Pos('7z.exe',UnPackRun) <> 0 then
            Begin
            if (Pos('Path',tempst[i]) = 0) OR (Pos(lstRomsList.Items.Strings[lstRomsList.ItemIndex],tempst[i]) <> 0) then
              tempst.Delete(i) else
                Begin
                  pmitem         := TMenuItem.Create(pmArchives);
                  tempst[i]      := StringReplace(tempst[i],'Path','',[rfReplaceAll,rfIgnoreCase]);
                  tempst[i]      := StringReplace(tempst[i],'=','',[rfReplaceAll,rfIgnoreCase]);
                  tempst[i]      := Alltrim(tempst[i]);
                  OemToAnsi(PChar(tempst[i]),PChar(tempst[i]));
                  pmitem.Action  := actPMArchive;
                  pmitem.Caption := tempst[i];
                  pmArchives.Items.Add(pmitem);
                  inc(i);
                end;
            end else
              Begin
                  pmitem         := TMenuItem.Create(pmArchives);
                  tempst[i]      := Alltrim(tempst[i]);
                  pmitem.Action  := actPMArchive;
                  pmitem.Caption := tempst[i];
                  pmArchives.Items.Add(pmitem);
                  inc(i);
              end;
        end;

и сам обработчик он клик:

Код:

procedure TForm1.actPMArchiveExecute(Sender: TObject);
var run, Capt:    String;
    EPath, RPath: String;
begin
    Capt      := TMenuItem(Sender).Caption;
    edt1.Text := TMenuItem(Sender).Caption;
...

[Aristarh Dark]

А ты уверен что Sender у тебя TMenuItem? Вот я не уверен.

[Chydik]

Мм т.е. ты подразумеваеш что защет того что у меня обработчик на Action а не на OnClick?

Спс огромное а нето уже в ступор впал переписал на
pmitem.OnClick := actPMArchive.OnExecute;
И все шикарно))