Menu funktionalität ohne MainMenu

[Captnemo]

Zitat von Popov:

Was meinst du mit "Menu funktionalität ohne MainMenu". Du hast kein Menü oder willst du nicht ein Menü aufklappen?

Der Maverik möchte die Tastaturfunktionalität, die in einem Mainmenu gegeben ist, ohne Mainmenu auf in seinem Programm nutzen.
So hab ich es jedenfalls verstanden.

[Perlsau]

Zitat von Captnemo:

Der Maverik möchte die Tastaturfunktionalität, die in einem Mainmenu gegeben ist, ohne Mainmenu auf in seinem Programm nutzen.

Wird diese Tastaturfunktionalität nicht bereits durch die Verwendung einer TActionList zur Verfügung gestellt? Also wenn ich eine ActionList in meiner Form platziere, dort Aktionen eintrage, selbige mit entsprechenden Hotkeys versehe und die Ereignisbehandlungen dazu schreibe, brauche ich nicht zwangsläufig ein MainMenu, um die Ereignisse auszulösen. Das MainMenu würde hier lediglich der visuellen Darstellung der Menüpunkte dienen, die Mavarick ja explizit nicht wünscht.

@Mavarick: Was meinst du dazu?

[Mavarik]

Zitat von Perlsau:

Zitat von Captnemo:

Der Maverik möchte die Tastaturfunktionalität, die in einem Mainmenu gegeben ist, ohne Mainmenu auf in seinem Programm nutzen.

Wird diese Tastaturfunktionalität nicht bereits durch die Verwendung einer TActionList zur Verfügung gestellt? Also wenn ich eine ActionList in meiner Form platziere, dort Aktionen eintrage, selbige mit entsprechenden Hotkeys versehe und die Ereignisbehandlungen dazu schreibe, brauche ich nicht zwangsläufig ein MainMenu, um die Ereignisse auszulösen. Das MainMenu würde hier lediglich der visuellen Darstellung der Menüpunkte dienen, die Mavarick ja explizit nicht wünscht.

@Mavarick: Was meinst du dazu?

Hmm gute Frage muss ich testen..

Was ist ein ein Child Fenster einen La&bel mit Focus Control auf ein TEdit hat...
Kommt der Alt+B noch durch? Was fatal wäre! [Edit] Jo und so ist es auch...

Eine ActionList klaut alle Tasten...

@Union Aufwendig.. Muss ich mir auch näher anschauen...
[EDIT] Leider falsche Reigenfolge..
bzw.. Selbst wenn ein MDI-Child active ist aber die Taste "nicht gebrauchen" kann... Wird diese ja ans Menu weitergeleitet...

[Dalai]

Zitat von Mavarik:

Eine ActionList klaut alle Tasten...

Naja klar. Genau dazu ist sie da. Du müsstest innerhalb der Behandlungsroutine also noch prüfen, ob das richtige Formular aktiv ist, bevor die Aktion ausgelöst wird.

MfG Dalai

[Mavarik]

Zitat von Dalai:

Zitat von Mavarik:

Eine ActionList klaut alle Tasten...

Naja klar. Genau dazu ist sie da. Du müsstest innerhalb der Behandlungsroutine also noch prüfen, ob das richtige Formular aktiv ist, bevor die Aktion ausgelöst wird.

MfG Dalai

Cool... Bei jeder Taste alle offenen MDI-Childs durchsuchen, ob da auf irgendeinem Unterpanel oder Button ein Accelerator gebraucht wird?

[Union]

Zitat von Mavarik:

Leider falsche Reigenfolge..
bzw.. Selbst wenn ein MDI-Child active ist aber die Taste "nicht gebrauchen" kann... Wird diese ja ans Menu weitergeleitet...

Das macht aber nichts. Wenn das Menü diesen Shortcut nicht bearbeitet, läuft der ja in's Leere.

[Sir Rufo]

Und wieso alle offnen MDIChilds durchsuchen? Das TForm.ActiveMDIChild sollte da doch genügen.

Man kann natürlich auch Funktionen über ein Interface zur Verfügung stellen:

Delphi-Quellcode:

IPrintable = interface
  [{GUID}]
  function CanPrint : Boolean;
  procedure DoPrint;
end;

und dann ganz simpel abfragen

Delphi-Quellcode:

procedure TMainForm.PrintActionExecute(Sender:TObject);
var
  LPrintable : IPrintable;
begin
  if Supports( ActiveMDIChild, IPrintable, LPrintable ) then
    LPrintable.DoPrint;
end;

procedure TMainForm.PrintActionExecute(Sender:TObject);
var
  LPrintable : IPrintable;
begin
  TAction( Sender ).Enabled := Supports( ActiveMDIChild, IPrintable, LPrintable ) and LPrintable.CanPrint;
end;

[Sir Rufo]

Eine weitere Alternative ist das Versenden einer Nachricht

Delphi-Quellcode:

unit UserCommand;

interface

uses
  System.Messaging;

type
{$SCOPEDENUMS ON}
  TUserCommand = ( Print, Save, SaveAs );

  TUserCommandMessage = class( TMessage )
  private
    FCommand: TUserCommand;
    FIsQuery: Boolean;
    FHandled: Boolean;
  public
    constructor Create( ACommand : TUserCommand; AIsQuery : Boolean = False );
    property Command: TUserCommand read FCommand;
    property IsQuery: Boolean read FIsQuery;
    property Handled: Boolean read FHandled write FHandled;
  end;

implementation

{ TUserCommandMessage }

constructor TUserCommandMessage.Create(ACommand: TUserCommand;
  AIsQuery: Boolean);
begin
  inherited Create;
  FCommand := ACommand;
  FIsQuery := AIsQuery;
  FHandled := False;
end;

end.

die von der Action verschickt wird

Delphi-Quellcode:

procedure TMainForm.FilePrint1Execute( Sender: TObject );
begin
  TMessageManager.DefaultManager.SendMessage( Self, TUserCommandMessage.Create( TUserCommand.Print ), True );
end;

procedure TMainForm.FilePrint1Update( Sender: TObject );
var
  LCmd: TUserCommandMessage;
begin
  LCmd := TUserCommandMessage.Create( TUserCommand.Print, True );
  try
    TMessageManager.DefaultManager.SendMessage( Self, LCmd, False );
    TAction( Sender ).Enabled := LCmd.Handled;
  finally
    LCmd.Free;
  end;
end;

und von den Empfängern entsprechend behandelt wird

Delphi-Quellcode:

procedure TMDIChild.AfterConstruction;
begin
  inherited;
  TMessageManager.DefaultManager.SubscribeToMessage( TUserCommandMessage, HandleUserCommand );
end;

procedure TMDIChild.BeforeDestruction;
begin
  TMessageManager.DefaultManager.UnSubscribe( TUserCommandMessage, HandleUserCommand );
  inherited;
end;

procedure TMDIChild.HandleUserCommand( const Sender: TObject; const M: TMessage );
var
  LCmd: TUserCommandMessage absolute M;
begin
  if not Self.Active then
    Exit;

  case LCmd.Command of
    TUserCommand.Print:
      if LCmd.IsQuery then
        LCmd.Handled := ( Memo1.Text <> '' );
      else
        // Dokument drucken
    TUserCommand.Save:
      ;
    TUserCommand.SaveAs:
      ;
  end;

end;

Das geht dann ohne Interfaces ...

[Mavarik]

Zitat von Union:

Zitat von Mavarik:

Leider falsche Reigenfolge..
bzw.. Selbst wenn ein MDI-Child active ist aber die Taste "nicht gebrauchen" kann... Wird diese ja ans Menu weitergeleitet...

Das macht aber nichts. Wenn das Menü diesen Shortcut nicht bearbeitet, läuft der ja in's Leere.

Ne umgekehrt... Erst wenn kein Fenster es gebrauchen kann, darf das "Menue" die Taste nutzen!