Про KeyPreview я знаю.
И установил его в true в самом начале:
автор вопроса писал:Что-то не пойму как поймать событие Ctrl+Left при Form1.KeyPreview = true
Специально создал новый проект для экспериментов (показываю текст модуля):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
unit Unit1;
interface
uses
Windows, Classes, Controls, Forms, Buttons, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key=vk_left) and (ssShift in Shift)) then label1.Visible:=not label1.Visible;
end;
end.
Так вот если у Button1 TabStop стоит true, то ничего не работает.
А если установить его в false, то сначала работает, а после нажатия на кнопку фокус устанавливается на нее и все крендец.
Положил еще TEdit на форму. При фокусе в Edit1 все пашет.
Что-то не пойму как победить данную траблу.
