Delphi - Comment empêcher le formulaire principal de capturer des frappes dans un TMemo sur un autre formulaire non-modal?

Question

J'ai une application qui ouvre un formulaire non-modal à partir du formulaire principal. La forme non-modale a un TMemo dessus. Le menu principal du formulaire utilise "espace" comme l'un de ses caractères d'accélérateur.

Lorsque le formulaire non-modal est ouvert et que le mémo est actif, chaque fois que j'essaie d'entrer un espace dans le mémo sur la forme non-modale, l'événement de forme principal du raccourci "espace" se déclenche!

J'ai essayé d'activer MainForm.KeyPreview: = false alors que l'autre formulaire est ouvert mais pas de dés.

Des idées?

TIA

Answer 1

Désactiver l'option de menu sur le formulaire principal alors que le mémo a mise au point, et réactiver lorsque le mémo perd. Vous pouvez le faire à partir des événements TMemo.OnEnter et TMemo.OnExit.

procedure TOtherForm.Memo1Enter(Sender: TObject); 
begin 
    if Application.MainForm is TYourMainForm then 
    TYourMainForm(Application.MainForm).MenuItemWithSpace. Enabled := False; 
end; 

procedure TOtherForm.Memo1Exit(Sender: TObject); 
begin 
    if Application.MainForm is TYourMainForm then 
    TYourMainForm(Application.MainForm).MenuItemWithSpace. Enabled := True; 
end; 

L'utilisation de Application.MainForm et transtypage doivent éviter de coder en dur dans une Nae forme variable sous la forme de l'enfant.

Answer 2

Cela peut être un sujet ancien, mais j'ai eu le même problème il y a un moment et j'ai cherché une solution appropriée. Votre sujet est venu mais pas avec une solution que je voudrais utiliser.

Mon problème était: J'ai un formulaire principal avec beaucoup de raccourcis (Backspace, Delete, etc) et un second formulaire avec une zone d'édition. La zone d'édition n'a reçu aucune action clé, qui est gérée par les raccourcis du formulaire principal.

Ma solution: Définissez les formulaires enfants OnShortCut, Wich va attraper les raccourcis avant qu'ils ne soient interprétés par la forme principale avec:

procedure ChildForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); 
begin 
    Handled := True; 
    Self.DefaultHandler(Msg); 
end; 

qui a fait l'affaire pour moi, la forme de l'enfant attrape les raccourcis et les poignées les comme des messages clés communs. La zone d'édition peut être utilisée comme prévu.