第一個問題,在按鈕事件中    Procedure TForm1.Button1Click(Sender: TObject);
Begin
  For2.ShowModal ;
  或 Form2.Show;
  // 其中差異,在執行後試著點選Form1就知道了
End;    第二個問題,參考下列文章,滿詳細的
http://delphi.ktop.com.tw/topic.php?topic_id=42368
http://delphi.ktop.com.tw/topic.php?topic_id=19106

引言: 即係我有兩個form~~form1有個button~ 請問用咩語法在buttonclick 這個procedure內令佢彈form2出來?? christy315你好： uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; //Form2.ShowModal; end; 两者区别在于： show：适用于所有控件和TForm组件;声明：procedure show ;说明：它通过设置窗体或控件的Visible属性为True或False，使其成为可视或不可视/ showModal：适用于TForm组件;声明：function showmodal:integer;说明：该方法将窗体显示成模式化(modal)窗口，一个模式化窗体显示时，只有关闭该窗口，才能将控制切换到程序的其它窗口中。如果用户关闭该窗体，窗体的ModalResult属性变成非0，当ModalResult具有一个非0值时，窗体将被关闭（结束执行）/ 同埋我想問delphi係唔係唔支援flash?? 如果我想加個flash係唔係唔得??我可以點做?? 可以的，可参考：jackkcg 大大的 http://delphi.ktop.com.tw/topic.php?topic_id=28198 范例： 五、Delphi範例 以下Delphi程式使用Bukoo Flash Objects創建包含放射性填充背景和一個旋轉並縮小文字的Flash動畫，所生成的SWF文件被寫入磁片，並用Flash ActiveX Contorl 顯示出來。 unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB; type TForm1 = class(TForm) Button1: TButton; ShockwaveFlash1: TShockwaveFlash; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses comObj, ShellAPI; procedure TForm1.Button2Click(Sender: TObject); begin // 控制Flash ActiveX Control 播發動畫 ShockwaveFlash1.play; end; procedure TForm1.Button3Click(Sender: TObject); begin // 控制Flash ActiveX Control 停止播發動畫 ShockwaveFlash1.Stop; end; procedure TForm1.Button1Click(Sender: TObject); const filename = 'c:\sample2.swf'; var vv, txt, obj: variant; ii: integer; begin // 創建Bukoo Flash Objects vv := CreateOLEObject('swfObjs.swfMovie'); vv.SetSize(6400, 3700); txt := CreateOLEObject('swfObjs.swfObject'); obj := CreateOLEObject('swfObjs.swfObject'); // 創建反射線填充背景 obj.MakeRectangle(0, 0, 6380, 3680); obj.SetRadialFill(255, 255, 255, 255, 255, 224, 224, 255); obj.SetRadialFillCenter (3190, 1895); obj.SetDepth(0); vv.AddObject(obj); // 創建字體 obj.MakeFont('MyFont'); obj.AddGlyph('Arial', 'Hello,', ord('H')); obj.AddGlyph('Arial', 'Bukoo', ord('B')); // 創建文字 txt.MakeText('HB', obj); txt.translate(500, 1500); txt.SetSolidFill(255, 0, 0, 250); txt.Scale(65536 div 2, 65536 div 2); vv.AddObject(txt); // 旋轉和縮小文字 for ii := 10 to 50 do begin vv.GotoFrame(ii); if ii >= 10 then vv.RemoveObject(txt); txt.rotate( (50-ii)*65536 * 9); txt.Scale( (60-ii)*6553, (60-ii)*6553); txt.SetSolidFill(255, 0, 0, (ii-9)*5); vv.AddObject(txt); end; // 輸出SWF文件 vv.WriteMovie(filename); // 將 SWF載入Flash ActiveX Contorl顯示 ShockwaveFlash1.Movie := filename; ShockwaveFlash1.play; end; end. 试试看 >< face="Verdana, Arial, Helvetica"> ——行径窄处，留一步与人行—— ——Never give up, never surrender——