5,939
社区成员
发帖
与我相关
我的任务
分享怎样拦截在TEXT控件中按 'PageUp' 或 'PageDown' 键的事件？
怎样拦截在TEXT控件中按 'PageUp' 或 'PageDown' 键的事件？
...全文
请发表友善的回复…
发表回复
王集鹄 2002-01-26
- 打赏
- 举报
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_PRIOR: Caption := 'Page Up';
VK_NEXT: Caption := 'Page Down';
end;
end;
Shift: TShiftState);
begin
case Key of
VK_PRIOR: Caption := 'Page Up';
VK_NEXT: Caption := 'Page Down';
end;
end;
rwdx 2002-01-26
- 打赏
- 举报
谢谢，搞好了
wz_zj_woniu 2002-01-26
- 打赏
- 举报
sorry,应该是这样：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key in [VK_PRIOR,VK_NEXT] then
ShowMessage('Page Up Is'+IntToStr(Key));
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key in [VK_PRIOR,VK_NEXT] then
ShowMessage('Page Up Is'+IntToStr(Key));
end;
rwdx 2002-01-26
- 打赏
- 举报
procedure TIPQC.D_SCXKeyPress(Sender: TObject; var Key: Word;Shift:TShiftState);
begin
// if (Key=VK_PRIOR) or (Key=VK_NEXT) THEN
showmessage('');
end;
老兄，这样没反应啊
begin
// if (Key=VK_PRIOR) or (Key=VK_NEXT) THEN
showmessage('');
end;
老兄，这样没反应啊
wz_zj_woniu 2002-01-26
- 打赏
- 举报
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;Shift:TShiftState);
begin
if Key=VK_PRIOR OR Key=VK_NEXT THEN
begin
......
end;
begin
if Key=VK_PRIOR OR Key=VK_NEXT THEN
begin
......
end;
