程序做了一个主界面FORM1，又做了一个FORM2，如何在FORM1中点一个按钮就能跳出FORM2中的界面，用什么代码，form2 show?好象不行？是不是在哪里还要加说明，或者有其它命令调用？

------
我的编程起步于ktop，我将永远支持ktop

您好: 使用Form2.Show()或Form2.ShowModal()就可以了.

我想写Fomr2.show 哪知中间的那个.一写就跳出错误提示了[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code

------
我的编程起步于ktop，我将永远支持ktop

您好: 可以將程式碼貼上來看看嗎? 或者參考下面這篇 http://delphi.ktop.com.tw/topic.php?topic_id=54255

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, DB, ADODB, Mask, frxClass, frxDBSet, frxDCtrl; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Button1: TButton; ADOConnection1: TADOConnection; ADOTable1: TADOTable; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; DataSource1: TDataSource; Button2: TButton; Button3: TButton; Button4: TButton; DBGrid1: TDBGrid; frxDBDataset1: TfrxDBDataset; frxReport1: TfrxReport; Button5: TButton; Button6: TButton; Button7: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit5KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit6KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit7KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit8KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit9KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit10KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit11KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Last; ADOTable1.Insert; ADOTable1.FieldByName('ÐÕû').AsString := Edit1.Text; ADOTable1.FieldByName('Æ´ÒôÂë').AsString := Edit2.Text; ADOTable1.FieldByName('СÁéͨ').AsString := Edit3.Text; ADOTable1.FieldByName('ÊÖ»ú').AsString := Edit4.Text; ADOTable1.FieldByName('Õ¬µç').AsString := Edit5.Text; ADOTable1.FieldByName('ÁªÏµµØÖ·').AsString := Edit6.Text; ADOTable1.FieldByName('QQ').AsString := Edit7.Text; ADOTable1.FieldByName('µç×ÓÐÅÏä').AsString := Edit8.Text; ADOTable1.FieldByName('·Ö×é').AsString := Edit9.Text; ADOTable1.FieldByName('ʹÓƵÂʼ¶±ð').AsString := Edit10.Text; ADOTable1.FieldByName('±¸×¢').AsString := Edit11.Text; ADOTable1.Post; Edit1.Text := '' ; Edit2.Text := '' ; Edit3.Text := '' ; Edit4.Text := '' ; Edit5.Text := '' ; Edit6.Text := '' ; Edit7.Text := '' ; Edit8.Text := '' ; Edit9.Text := '' ; Edit10.Text := '' ; Edit11.Text := '' ; Edit1.SetFocus ; end; procedure TForm1.Button2Click(Sender: TObject); begin if MessageDlg('È·¶¨É¾³ý´£¿',mtConfirmation,[mbYes,mbno],0)= mrYes then ADOTable1.Delete; end; procedure TForm1.DBGrid1CellClick(Column: TColumn); begin Edit1.Text:=ADOTable1.FieldByName('ÐÕû').AsString; Edit2.Text:=ADOTable1.FieldByName('Æ´ÒôÂë').AsString; Edit3.Text:=ADOTable1.FieldByName('СÁéͨ').AsString; Edit4.Text:=ADOTable1.FieldByName('ÊÖ»ú').AsString; Edit5.Text:=ADOTable1.FieldByName('Õ¬µç').AsString; Edit6.Text:=ADOTable1.FieldByName('ÁªÏµµØÖ·').AsString; Edit7.Text:=ADOTable1.FieldByName('QQ').AsString; Edit8.Text:=ADOTable1.FieldByName('µç×ÓÐÅÏä').AsString; Edit9.Text:=ADOTable1.FieldByName('·Ö×é').AsString; Edit10.Text:=ADOTable1.FieldByName('ʹÓƵÂʼ¶±ð').AsString; Edit11.Text:=ADOTable1.FieldByName('±¸×¢').AsString; end; procedure TForm1.Button3Click(Sender: TObject); begin ADOTable1.DisableControls; ADOTable1.Edit; ADOTable1.FieldByName('ÐÕû').AsString := Edit1.Text; ADOTable1.FieldByName('Æ´ÒôÂë').AsString := Edit2.Text; ADOTable1.FieldByName('СÁéͨ').AsString := Edit3.Text; ADOTable1.FieldByName('ÊÖ»ú').AsString := Edit4.Text; ADOTable1.FieldByName('Õ¬µç').AsString := Edit5.Text; ADOTable1.FieldByName('ÁªÏµµØÖ·').AsString := Edit6.Text; ADOTable1.FieldByName('QQ').AsString := Edit7.Text; ADOTable1.FieldByName('µç×ÓÐÅÏä').AsString := Edit8.Text; ADOTable1.FieldByName('·Ö×é').AsString := Edit9.Text; ADOTable1.FieldByName('ʹÓƵÂʼ¶±ð').AsString := Edit10.Text; ADOTable1.FieldByName('±¸×¢').AsString := Edit11.Text; ADOTable1.Post; ADOTable1.EnableControls; end; procedure TForm1.Button4Click(Sender: TObject); var NewString: string; begin InputQuery('ÊäÈë²éѯÌõ¼þ', '²éѯÐÕûΪ', NewString); ADOTable1.Locate('ÐÕû',newstring,[loPartialKey]); end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit2.SetFocus end; procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit3.SetFocus end; procedure TForm1.Edit3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit4.SetFocus end; procedure TForm1.Edit4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit5.SetFocus end; procedure TForm1.Edit5KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit6.SetFocus end; procedure TForm1.Edit6KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit7.SetFocus end; procedure TForm1.Edit7KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit8.SetFocus end; procedure TForm1.Edit8KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit9.SetFocus end; procedure TForm1.Edit9KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit10.SetFocus end; procedure TForm1.Edit10KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Edit11.SetFocus end; procedure TForm1.Edit11KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=013) then Button1.SetFocus end; procedure TForm1.Button5Click(Sender: TObject); begin frxReport1.LoadFromFile('jrr.fr3'); frxReport1.PrepareReport; frxReport1.ShowPreparedReport end; procedure TForm1.Button6Click(Sender: TObject); begin Form2.show() end; end.

------
我的编程起步于ktop，我将永远支持ktop

您好: 您貼出來的原始碼還真長..@@程式有問題時先將問題單純化,把不必要的程式碼先Remark起來測試,會比較容易找到問題所在,您的程式我猜測是沒有去Uses Form2的Unit,依照我下面的方式加入那行試試看. implementation Uses Unit2;//Unit2為您的Form2存檔名稱 {$R *.dfm}