BDS2006如何寫動態事件? |
答題得分者是:syntax
|
jacike
一般會員 ![]() ![]() 發表:17 回覆:22 積分:7 註冊:2003-11-17 發送簡訊給我 |
大大小弟找了很多篇討論,有一篇的範例如下
不過小弟試了在Run 時卻出現 error: [Pascal Fatal Error] Unit1.pas(86): F2084 Internal Error: URW813 這是哪邊的問題呢?照著範例key作還是不行??? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; TEventOBJ=Object procedure doMyClick(Sender:TObject); end; var Form1: TForm1; btn:TButton; MyEvent:TEventOBJ; implementation {$R *.dfm} //TEventOBJ procedure TEventOBJ.doMyClick(Sender:TObject); begin ShowMessage('Myforbidden() is Running !!'); end; procedure TForm1.Button1Click(Sender: TObject); begin btn := TButton.Create(nil); btn.Left := 318; btn.Top := 50; btn.Parent := self; btn.forbidden := MyEvent.doMyClick; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin btn.Free; end; end. |
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
在 From 的 OnCreate 加入
MyEvent := TEventOBJ.Create; OnDestory 加入 MyEvent.Free; ===================引 用 jacike 文 章=================== 大大小弟找了很多篇討論,有一篇的範例如下 不過小弟試了在Run 時卻出現 error: [Pascal Fatal Error] Unit1.pas(86): F2084 Internal Error: URW813 這是哪邊的問題呢?照著範例key作還是不行??? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; TEventOBJ=Object procedure doMyClick(Sender:TObject); end; var Form1: TForm1; btn:TButton; MyEvent:TEventOBJ; implementation {$R *.dfm} //TEventOBJ procedure TEventOBJ.doMyClick(Sender:TObject); begin ShowMessage('Myforbidden() is Running !!'); end; procedure TForm1.Button1Click(Sender: TObject); begin btn := TButton.Create(nil); btn.Left := 318; btn.Top := 50; btn.Parent := self; btn.forbidden := MyEvent.doMyClick; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin btn.Free; end; end.
編輯記錄
syntax 重新編輯於 2008-01-01 23:43:11, 註解 無‧
|
jacike
一般會員 ![]() ![]() 發表:17 回覆:22 積分:7 註冊:2003-11-17 發送簡訊給我 |
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
TEventOBJ=Object 改成 TEventOBJ=class(TObject)
基礎稍微學一下吧 ===================引 用 jacike 文 章=================== syntax 大大 小弟試了在 From 的 OnCreate 加入還是無法編釋 ======>MyEvent := TEventOBJ.Create; //TEventOBJ無法顯示出Create的選項 ======>OnDestory 加入 MyEvent.Free; //這也沒有顯示Free的選項內 |
jacike
一般會員 ![]() ![]() 發表:17 回覆:22 積分:7 註冊:2003-11-17 發送簡訊給我 |
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
的確 Delphi 在一般書局幾乎看不到,但在專業書局還是有的,或是大書店,例如誠品旗艦店
至於網路書店則是一堆,甚至大陸的也買得到,更不用說,Delphi 的書,現在大陸一堆 如果是英文書,則會發現,Delphi 哪裡來的式微 是台灣書商不重視 delphi ,不表示它就要由世界上消失 台灣的書,都只剩快快樂樂系列,頂多可以說是圖集而已(貼貼畫面),你看得輕鬆,書商賺得快樂,至於書中能學到的東西,頂多是外文書的十分之一 但至少,將 Delphi Help 看熟吧,這你就沒有藉口欺騙自己了 ,只有看或不看 ===================引 用 jacike 文 章=================== 大大說的是,小弟基礎明顯不足,不過咧~好在有您們在,要不然真 不知要如何學習,Delphi的書明顯在書局已經快絕跡了,還是感 恩大大幫小弟解惑~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |