新建一个窗体form2,在这个窗体上加一个edti1控件,和一个button1控件.
设置button1的ModalResult := mrOK.当我把form2.ShowModal后, 我想判断edit1里的字符串是不是'1',如果不是
则edit1.SetFocus,继续输入,直到输入'1'才关闭窗口,应该要怎样实现,
我想了,很久,都不知道怎样做,谁帮一下忙?
设置button1的ModalResult := mrOK.当我把form2.ShowModal后, 我想判断edit1里的字符串是不是'1',如果不是
则edit1.SetFocus,继续输入,直到输入'1'才关闭窗口,应该要怎样实现,
我想了,很久,都不知道怎样做,谁帮一下忙?
解决方案 »
- finddialog ReplaceDialog
- 请问如何制作动态菜单~~就是菜单的名字都在数据库中取
- 调用ManualDock,来dock两个form到一个panel,想上下排列,排列结果总是一左一右,为什么?
- 为什么delphi下DBGrid的Column能改长度,但是delphi7下DBGrid的Column不能改长度?
- midas应用,怎样获得连接客户的ip地址和端口
- ADOquery问题
- delphi有没有开源的进销存或者erp?
- 关于打印报表的“预览”问题???
- 初始化打开一个含有.rpt文件的文件夹,怎么写
- 很失望:今天到书市逛了半天,想找一下关于条形码方面的资料,进出的书店不少于四,五十家,毫无收获.到是"淀海考王"之类的书满大街都是.
- 关于toolbar
- 请教:TreeView的发生Expanding时(用鼠标展开),怎么才能不触发click事件?
ModalResult属性为mrOK). 这个窗口不关闭?
begin
if form2.Edit1.Text='1' then
form2.Close
else
form2.Edit1.SetFocus;
end;
begin
if edit1.Text='1' then
close
else
edit1.SetFocus;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key='1' then
close
else
edit1.Text:='';
key:=#0;
end;
begin
......
//在此做一些事情,不过,我必须要求Form2.edit1 = '1',才执行这些代码,
//否则在Form2里重复输入edit1. 不知道怎样做到??
end;
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if edit1.Text <> '1' then
CanClose := false
end;//form1中的语句
procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.ShowModal = mrOK then
begin
showMessage('after ShowModal and edit1.text = ''1'', form2 closed!');
end;
end;