[新手問] 點樣set個button當click時出form2?? |
尚未結案
|
christy315
一般會員 發表:9 回覆:8 積分:3 註冊:2004-07-11 發送簡訊給我 |
|
Chance36
版主 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
christy315 你好
第一個問題,在按鈕事件中 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_______________________________________ 深藍的魚,祝您好運..........連.連 發表人 - chance36 於 2004/07/17 00:40:27 |
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 即係我有兩個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—— |
christy315
一般會員 發表:9 回覆:8 積分:3 註冊:2004-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |