怎么实现 关闭程序时候,跳出输入密码框,如果正确则退出,如果错误则回到程序界面!!!
解决方案 »
- 请教Database1的问题
- 关于读到一个DLL文件中的过程或函数时,怎么样知道他的参数个数.如有工具也行.
- 如果把一个文件从文件尾到文件头读出来?
- 如何使用QReport和RAVE做报表?
- ActiveDocument.Shapes("Text Box 2").Select 这句话在DELPHI里怎么写呢?
- 各位能否看看用什么样的sql语句能实现这个操作,谢谢
- Help!复制一个控件用什么方法?Assign()好像不行。在线等候!
- 新年好,给delphi的兄弟拜年了
- 哪位大大帮我看看ADOQuery语句哪里写错了??
- 如果作一个点击按钮便弹出新的窗口dephi程序,需要另外新建一个from2窗口吗?本人刚学dehpi是菜鸟,还请多照顾
- dbgrideh拷贝问题,谢谢回答!
- 请问如何嵌套一个正在运行的EXE到自己的主窗体里面?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Form2 := TForm2.Create(nil);
try
if Form2.ShowModal = mrOk then CanClose := true
else CanClose := false;
finally
Form2.Free;
Form2 := nil;
end;
end;end.登陆窗体代码如下:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'wudi_1982' then
ModalResult := mrOk
else ModalResult := mrCancel;
end;end.
谢谢 给分了