5,930
社区成员
发帖
与我相关
我的任务
分享
procedure TForm11.dxBarEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
ShowMessage(dxBarEdit1.Text); //一次回车 看看是不是空值?
end;
procedure TForm11.dxBarEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
ShowMessage('1');
end;