G'day all,
Here is another one.
Create a new form and place a TMainMenu, TEdit and TButton on the form.
Create a File/Quit menu and assign the quit menu the shortcut ctrl+W.
Hook it up. (This is the only piece of code in the project really)
procedure TForm1.MenuQuitClick(Sender: TObject);
begin
Close;
end;Now, when the TEdit has focus, the shortcut does not work. The only way to get it to work is click the button (to focus it). Now you can close the form with ctrl-W.
This seems to be prevalent with any component that takes a keyboard input (I noticed it with TSynEdit initially).
v0.9.27 r16943M i386-linux-gtk 2 (beta)
Free Pascal Compiler version 2.2.3 [2008/10/08] for i386 Copyright (c) 1993-2008 by Florian Klaempfl
unit Unit1;
{$mode objfpc}{$H+}
interfaceuses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
SynEdit, Menus, StdCtrls;type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
MainMenu1: TMainMenu;
MenuFile: TMenuItem;
MenuQuit: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure MenuQuitClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation{ TForm1 }
procedure TForm1.MenuQuitClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
initialization
{$I unit1.lrs}
end.Regards,
Brad