9
我有一个带有TEdit控件的Win32窗体。当用户在TEdit控件处于焦点时按下CTRL-t时,我想使用OnKeyUp事件检测它。我需要一个代码示例,请使用Key和/或Shift变量。谢谢。如何在Delphi中检测ctrl-t按键
我有一个带有TEdit控件的Win32窗体。当用户在TEdit控件处于焦点时按下CTRL-t时,我想使用OnKeyUp事件检测它。我需要一个代码示例,请使用Key和/或Shift变量。谢谢。如何在Delphi中检测ctrl-t按键
形式为True集的KeyPreview,然后写这样的代码为窗体的onkeyup事件:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = 84) and (Shift = [ssCtrl]) then
ShowMessage('Ctrl+t is pressed!');
end;
是的,我发现你张贴和它的作品前30秒。谢谢! – kenalacom 2010-06-08 19:47:50