[LEFT]Form1.KeyPreview:=True;[
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F3) and ([ssCtrl] = Shift) then
begin
Key := 0;
ShowMessage('Got Ctrl+f3');
end
end;
/LEFT]
[LEFT]Form1.KeyPreview:=True;[
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F3) and ([ssCtrl] = Shift) then
begin
Key := 0;
ShowMessage('Got Ctrl+f3');
end
end;
/LEFT]