请教一个delphi代码编写

补充：浮生梵谷  
 您是否能给出完整代码呢？ 让我看看。。 
   您写的这些我看明白了，只是比如“点是的话执行的代码 并关闭对话框
点否的话返回原来 并关闭对话框“ 函数应该怎么写
		

答案：
有很多种情况啊 我就给你说2种吧  
1种是登入窗口  符合条件就进入 否则就退出
 if 符合条件 then
 begin 
   进入程序的函数
 end
 else
 begin
    退出
 end
第二种情况 是弹出对话框选择是否
 if application.MessageBox('是否退出','提示信息',MB_OKCANCEL)=idok then
 begin
    点是的话执行的代码 并关闭对话框
   点否的话返回原来  并关闭对话框
 end;
还不明白的话再问
procedure TForm1.FormCreate(Sender: TObject);
begin
case MessageBox(0,pchar('请问您是否要进入本程序!'),'提示',MB_ICONWARNING+MB_yesno) of
Idyes:form1.Show;
IdNo:exitprocess(0);
end;
end;
end.
点是的事件中输入 Exit;
点否的事件中输入 Application.Terminate;
if application.messagebox('请问您是否要进入本程序!','提示','MB_ICONQUESTION+mb_YesNo) = id_yes   then 
begin
你要执行的语句 
end
 else
application.Terminate;
//这个的意思是 弹出个对话框 有是与否选择 如果选择是 则执行
进入程序 否则application.Terminate;//退出应用程序
在这不让我发代码了 完整代码我已经发你qq里了阿 你给我加分吧

上一个：怎么才可以学好delphi?
下一个：delphi2008什么时候出来???