delphi 语句之间的跳转

来源：百度知道 编辑：UC知道 时间：2024/06/08 17:25:57
if edit1.Text='' then
showmessage('请输入学号！');
比如这条语句，如果为空，我要一直的提示输入，就是做showmessage()该怎么实现，各位大侠帮帮忙？
给位大侠能不能给具体的语句参考啊！

很简单，在Edit的OnKeyUp事件里放入你那句判断就行
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
if Edit1.Text ='' then
ShowMessage('请输入数据');
end;

那你就在下个taborder的控件OnEnter事件中判断，如果为空把光标跳回来

或者在你的提交按钮里判断