Doppelclick bei Actions verhindern

[nahpets]

Momentan rate ich mal ein bisserl.

Ginge dashier nicht?

Delphi-Quellcode:

procedure TmyActionList.OnActionExecute(Sender: TObject);
begin
  if Assigned(FOnExecuteAction) then begin
    if Sender is TAction then TAction(Sender).Enabled := False;
    FOnExecuteAction(Self);
    if Sender is TAction then TAction(Sender).Enabled := True;
  end;
end;