说明：若你想知道About窗口和TOpendialog是怎么制作出来的，看看这个Demo. 核心技术：ShowModal,ModalResult,Execute: Boolean Google搜索：Delphi,组件制作,About,TOpendialog

procedure TForm2.BitBtn1Click(Sender: TObject); var retVal:integer; begin retVal:=mrNo; if (Edit1.Text='a') and (Edit2.Text='b') then begin retVal:=mrYes; end; modalresult:=retVal; end; procedure TForm2.BitBtn2Click(Sender: TObject); begin mm:=1; ap