請問一下...我有一個主FORM1但我再主FORM1顯示後再多加一個FORM2來驗證密碼..我就在FORM1的CREATE上寫下

procedure TForm1.FormCreate(Sender: TObject);
 var paTform2:Tform2;
begin
  paTform2:=tform2.Create(self);
   paTform2.ShowModal;
end;

可是顯示出來的視窗卻只有FORM2而已，FROM1不見ㄌ.我也有在PROJACT的OPTIONS加入FORM1ㄌ，請問一下各位大大............. -------------------------------------------------------------------- DELPHI小小新手..

您好﹗    因為您的Form2是在Form1的OnCreate事件中以ShowModal模式顯示出來﹐所以要等Form2關閉時Form1才會出現﹒ 另一個方法﹐您可把程式碼寫在Form1的OnActivate事件中﹐這樣的話﹐當Form1取得焦點時﹐Form2就會以ShowModal的模式顯示﹒    ========================= 大病初愈﹐休養調整中... =========================

------
忻晟

你做太快了 form1還在create form2就已經showmodal 當然 form1會看不到 調整一下順序 應該就可以了 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

謝謝....cashxin2002,T.J.B大大的指教 ^^ ，我把程式寫在OnActivate就可以ㄌ，在請問一下我的FROOM2有寫確認帳號，確認完就關閉，可是關閉以後會發生錯誤訊息，程式碼如下 procedure TForm2.SpeedButton8Click(Sender: TObject); begin if messagedlg('要離開系統嗎?',mtConfirmation,[mbyes,mbno],0)=mrYes then begin form2.Close; form1.Close; end; end; procedure TForm2.SpeedButton9Click(Sender: TObject); begin adoQuery1.Close; adoQuery1.SQL.Clear; adoQuery1.SQL.Add('Select * From manager Where '); adoQuery1.SQL.Add('帳戶=''' Edit1.Text ''' and '); adoQuery1.SQL.Add('密碼=''' Edit2.Text ''''); adoQuery1.Open; if Not adoQuery1.IsEmpty then begin showmessage('登入成功！'); form2.Close; end else begin ShowMessage('登入密碼錯誤，請輸入正確密碼！'); end; end; 請問一下..我是哪裡錯ㄌ.......謝謝... ..................................................................... 小小DELPHI新手..

hi,iven0811: 1.如果你要整個關閉系統,不應該由form2裡去關閉form1.應該要由form1自己關閉.畢你的form2只是確認user輸入的密碼對不對而已.所以,你的form1的onActive裡,在form2.ShowModel時後,可以檢查form2.ModuleResult來判斷使用者按下的鍵,如下:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  form2:=TForm2.Create(Self);
  try
    form2.ShowModal;
    if form2.ModalResult = mrAbort then
      Self.Close;
  finally
    form2.Free;
  end;
end;  

補充說明:要讓user可以在form2上按下按鈕以離開系統,可以用TBitBtn來做,將其ModuleResult屬性設為mrAbort即可 2.貼上來的程式碼,請按規定縮排,不然別人看你的程式碼粉累

引言: 謝謝....cashxin2002,T.J.B大大的指教 ^^ ，我把程式寫在OnActivate就可以ㄌ，在請問一下我的FROOM2有寫確認帳號，確認完就關閉，可是關閉以後會發生錯誤訊息，程式碼如下 procedure TForm2.SpeedButton8Click(Sender: TObject); begin if messagedlg('要離開系統嗎?',mtConfirmation,[mbyes,mbno],0)=mrYes then begin form2.Close; form1.Close; end; end; procedure TForm2.SpeedButton9Click(Sender: TObject); begin adoQuery1.Close; adoQuery1.SQL.Clear; adoQuery1.SQL.Add('Select * From manager Where '); adoQuery1.SQL.Add('帳戶=''' Edit1.Text ''' and '); adoQuery1.SQL.Add('密碼=''' Edit2.Text ''''); adoQuery1.Open; if Not adoQuery1.IsEmpty then begin showmessage('登入成功！'); form2.Close; end else begin ShowMessage('登入密碼錯誤，請輸入正確密碼！'); end; end; 請問一下..我是哪裡錯ㄌ.......謝謝... ..................................................................... 小小DELPHI新手..

您好    上貼程式碼的時候請用【code】程式碼【/code】方法﹐有利于程式碼的查看﹒ 首先﹐要确定您的 class="code">procedure TForm2.SpeedButton8Click(Sender: TObject); begin if messagedlg('要離開系統嗎?',mtConfirmation,[mbyes,mbno],0)=mrYes then Application.Terminate; end; procedure TForm2.SpeedButton9Click(Sender: TObject); begin adoQuery1.Close; adoQuery1.SQL.Clear; adoQuery1.SQL.Add('Select * From manager Where '); adoQuery1.SQL.Add('帳戶=''' Edit1.Text ''' and '); adoQuery1.SQL.Add('密碼=''' Edit2.Text ''''); adoQuery1.Open; if Not adoQuery1.IsEmpty then begin showmessage('登入成功！'); form2.Close; end else begin ShowMessage('登入密碼錯誤，請輸入正確密碼！'); end; end; ========================= 大病初愈﹐休養調整中... ========================= 發表人 - cashxin2002 於 2004/10/28 10:15:02

------
忻晟

change.jian大大..抱歉..我因為太急ㄌ忘ㄌ縮排，以後絕對不會ㄌ..抱歉