Hallo,
Ich versuche bereits seit einer Weile herauszufinden, wie ich den Enabled Status eines TMenuItems aus einem tPopupMenu ändere, welches während der Laufzeit erstellt wurde.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.files();
var searchResult:TsearchRec;
    sample:TMenuItem;
begin
path:=ExtractFileDir(Application.ExeName);
SetCurrentDir(path+'\skins');
popup:=TPopupMenu.Create(self);
popup.AutoHotkeys:= maManual;
if FindFirst('*',faReadOnly,searchResult) = 0 then
begin
  repeat
      sample:=TMenuItem.Create(popup);
      sample.Caption:=ExtractFileName(searchResult.Name);
      sample.OnClick:=onClick;
      Popup.Items.Add(sample);
  until FindNext(searchResult) <> 0;
  FindClose(searchResult);
end;

end;

Wenn ich also nun versuche in meiner onClick procedure das Element des Popup-Menüs auszublenden, welches angeklickt wurde, passiert dies nicht, aber warum?

markieren

Delphi-Quellcode:

procedure TForm1.onClick(Item: TObject);
begin
skin:=path+'\skins\'+TMenuItem(Item).Caption;
Edit2.Text:=TMenuItem(Item).Caption;
TMenuItem(Item).Enabled:=false;
end

Warum SetCurrentDir und nicht FindFirst(path+'\skins\'+'*',... ?

Warum heißt die Variable Path, obwohl da ein Directory drin ist?

Wann wird Files aufgerufen?

Das Item (eigentlich Sender) sollte zwar das Menüitem sein, aber sicherheitshalber kann (Item as TMenuItem).Enabled:=false; nicht schaden. (vorallem wenn man nicht ganz sicher ist, was man da macht)

Und vorallem, wer kommt denn bitte auf die saublöde Idee und nennt eine Methode OnClick?
Ganz besonders dann, wenn die TForm1 bereits ein Property mit dem selben Namen besitzt.

Ach ja, Enabled blendet nichts aus. (Visible)