5,388
社区成员
发帖
与我相关
我的任务
分享不难拿呀，关于TEdit
怎样才能在TEdit上加上shortcut呢？
He&llo ［ ］
……… ………………
label TEdit
应该不太难把？
He&llo ［ ］
……… ………………
label TEdit
应该不太难把？
...全文
请发表友善的回复…
发表回复
szkingrose 2001-08-02
- 打赏
- 举报
設定 form1.preview為true
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_ESCAPE then
edit2.SetFocus ;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_ESCAPE then
edit2.SetFocus ;
end;
softcool 2001-08-02
- 打赏
- 举报
使用onkeydown事件对键盘进行判断
chechy 2001-08-02
- 打赏
- 举报
Label有FocusControl属性，连接到相应的TEdit上面，不就可以了。
outer2000 2001-08-02
- 打赏
- 举报
gz
