Shortcuts: Vollbildmodus auf STRG+V

[nano]

Hallo!


Folgendes Problem:
Für mein ZeichenProgram brauche ich einen Vollbildmodus. Die nötigen Prozeduren dazu sind bereits fertig. Allerdings sollten sie beim drücken von "STRG+V" ausgelöst werden. Dazu habe ich der Eigenschaft "Shortcut" eines Menüpunkts diesen Wert zugewiesen. Das Programm reagiert aber nicht drauf

Vielleich muss ich die Tastenkombination auf der Form-Ebene abfangen?

Wie lass ich mein Programm beim Auslösen von STRG+V eine bestimmte Prozedur starten?

Danke im Vorraus!

[Rastaman]

STRG + V ist ein globaler Hotkey der überall gillt und steht für Einfügen.
STRG + C ist kopieren und STRG + X ist ausschneiden.

[marabu]

Hallo nano,

tue dir und den Benutzern deines Programms einen Gefallen und nimm den ShortCut Alt+Enter.

Grüße vom marabu

[nano]

Okay, hab jetzt auf "Alt+Enter" geändert.... Trotzdem wird die Prozedur nicht aufgerufen

[marabu]

Üblicherweise rufst du die Prozedur zum Einstellen oder Abstellen des Vollbildmodus aus einer Action auf. Wenn du die Action dem Toggle-MenuItem "Ansicht | Vollbildmodus" im Hauptmenü deiner Form zuweist, dann wird es funktionieren.

marabu

[nano]

verstehe nicht ganz, was du meinst

ich hatte vorher eine ganz normale onclick prozedur
hab sie dann auch anschließend als Action umgeschrieben.. es klappt trotzdem nicht

[marabu]

Hallo nano,

ich verwende eine Action "FullScreenAction" und ein MenuItem "miFullScreen".

Delphi-Quellcode:

object DemoForm: TDemoForm
  ...
  object MainMenu: TMainMenu
    Left = 60
    Top = 92
    object ViewMenu: TMenuItem
      Caption = '&Ansicht'
      object miFullScreen: TMenuItem
        Action = FullScreenAction
      end
    end
  end
  object ActionList: TActionList
    Left = 128
    Top = 52
    object FullScreenAction: TAction
      Caption = '&FullScreen'
      ShortCut = 32781
      OnExecute = FullScreenActionExecute
    end
  end
end

Der ShortCut ist selbstredend Alt+Enter. Das ist mein Code:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    MainMenu: TMainMenu;
    ViewMenu: TMenuItem;
    miFullScreen: TMenuItem;
    ActionList: TActionList;
    FullScreenAction: TAction;
    procedure FullScreenActionExecute(Sender: TObject);
  end;

implementation

procedure TDemoForm.FullScreenActionExecute(Sender: TObject);
begin
  with FullScreenAction do
  begin
    Checked := not Checked;
    SetFullScreenMode(Checked);
  end;
end;

Funktioniert bei mir. Was machst du anders?

marabu

[nano]

Ich weiss wo das Problem liegt. Nun, ich wollte bei mir ähnliches Menü erstellen, wie bei Delphi selbst, d.h. wo man einzelne Panels und Menüs verschieben kann. Dazu habe ich dann einfach ein CoolBar hergenommen und dort alle meine Panels und Menüs gelagert. Funktioniert einwandfrei. Allerdings ist die Eigenschaft Menu vom Formular leer (wenn ich dort mein MainMenü eintragen würde, hätte ich neben dem Menü im Coolbar genauso eins oben drüber.


Wie kann man das umgehen?

ps: siehe Anhang

[PierreB]

Zitat von Rastaman:

STRG + V ist ein globaler Hotkey der überall gillt und steht für Einfügen.
STRG + C ist kopieren und STRG + X ist ausschneiden.

Nö der gilt nicht überall, wenn ich in meinem Programm zum Beispiel einem TMainMenu-Items den ShortCut Strg + V zuweise, dann ist der nicht mehr einfügen.

[Union]

Zitat von PierreB:

Zitat von Rastaman:

STRG + V ist ein globaler Hotkey der überall gillt und steht für Einfügen.
STRG + C ist kopieren und STRG + X ist ausschneiden.

Nö der gilt nicht überall, wenn ich in meinem Programm zum Beispiel einem TMainMenu-Items den ShortCut Strg + V zuweise, dann ist der nicht mehr einfügen.

Ist aber kein schöner Stil. Man sollte keine Windowstasten überschreiben, damit kommt ein Normaluser nämlich nicht klar. Such mal in der Windows-Hilfe nach "Übersicht über die Windows-Tastenkombinationen".