5,927
社区成员




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;