Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Aktionen zur Laufzeit einfügen?

    Delphi
    by uligerhardt, 11. Dez 2008
  Den OnExecute-Handler musst du manuell erstellen, etwas wie LanguageActionExecute hier:procedure TfMain.LanguageActionExecute(Sender: TObject);
  begin
  Assert(Sender is TAction);
  ShowMessage(TAction(Sender).Caption);
  end;
  
  procedure TfMain.MainMenu_ActManBarClick(Sender: TObject);
  var
  i: Integer;
  begin
• Forum: Sonstige Fragen zu Delphi

  Re: Aktionen zur Laufzeit einfügen?

    Delphi
    by uligerhardt, 10. Dez 2008
  Ich mache das so:function TEineForm.CreateAction(const AName, ACategory, ACaption: string;
  AShortCut: TShortCut; AOnExecute: TNotifyEvent; AOnUpdate: TNotifyEvent = nil): TAction;
  begin
  Result := TAction.Create(Self);
  Result.Name := AName;
  Result.Category := ACategory;
  Result.Caption := ACaption;
  Result.ShortCut := AShortCut;
  Result.OnExecute := AOnExecute;
  ...