大大小弟找了很多篇討論,有一篇的範例如下
不過小弟試了在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.

在 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 大大 小弟試了在 From 的 OnCreate 加入還是無法編釋

======>MyEvent := TEventOBJ.Create;

//TEventOBJ無法顯示出Create的選項

======>OnDestory 加入

MyEvent.Free;

//這也沒有顯示Free的選項內

 TEventOBJ=Object 改成  TEventOBJ=class(TObject)

基礎稍微學一下吧

===================引 用 jacike 文 章===================
syntax 大大 小弟試了在 From 的 OnCreate 加入還是無法編釋

======>MyEvent := TEventOBJ.Create;

//TEventOBJ無法顯示出Create的選項

======>OnDestory 加入

MyEvent.Free;

//這也沒有顯示Free的選項內

大大說的是,小弟基礎明顯不足,不過咧~好在有您們在,要不然真

不知要如何學習,Delphi的書明顯在書局已經快絕跡了,還是感

恩大大幫小弟解惑~

的確 Delphi 在一般書局幾乎看不到，但在專業書局還是有的，或是大書店，例如誠品旗艦店
至於網路書店則是一堆，甚至大陸的也買得到，更不用說，Delphi 的書，現在大陸一堆
如果是英文書，則會發現，Delphi 哪裡來的式微

是台灣書商不重視 delphi ，不表示它就要由世界上消失

台灣的書，都只剩快快樂樂系列，頂多可以說是圖集而已(貼貼畫面)，你看得輕鬆，書商賺得快樂，至於書中能學到的東西，頂多是外文書的十分之一

但至少，將 Delphi Help 看熟吧，這你就沒有藉口欺騙自己了 ，只有看或不看

===================引 用 jacike 文 章===================
大大說的是,小弟基礎明顯不足,不過咧~好在有您們在,要不然真

不知要如何學習,Delphi的書明顯在書局已經快絕跡了,還是感

恩大大幫小弟解惑~