event در دلفی

[yashar666]

با سلام
من می خواستم ببینم در دلفی چطور می تونم یه event ایجاد کنم
چه چیزی داره مثلا on move mouse رو شبیه سازی کنم منظورم توابع اون نیست نوع نوشتن event اگه می شه با یه مثال بگید

[_abiriamir]

من که منظورتون رو نفهمیدم ولی ببینین این بدردتون میخوره؟
اول رو فرم کلیک کنید (چیزی نمیشه)
بعد رو دکمه کلیک کنید
حالا دوباره رو فرم کلیک کرده و . . .

[Ali.Afzal]

با سلام،

اگر منظور شما مثل Event های ارائه شده در دلفی هست، یعنی یک Event به انتهای لیست اضافه شود، باید در خود کامپوننت را دستکاری کنید!

شما می توانید خودتان یک Function و یا Procedure بنویسید و به عنوان Event از آن استفاده کنید!

[vcldeveloper]

interface

uses Windows;

type
TMyEvent = procedure (Sender: TObject; const Msg: string) of object;

TMyClass = class
private
FMyEvent : TMyEvent;
private
procedure DoMyEvent(const Msg: string);
public
procedure DoSomething;
published
property MyEvent: TMyEvent read FMyEvent write FMyEvent;
end;

implementation

procedure TMyClass.DoMyEvent(const Msg: string);
begin
if Assigned(FMyEvent) then
FMyEvent(Self,Msg);
end;

procedure TMyClass.DoSomething;
begin
DoMyEvent('Starting something');
Sleep(1000);
DoMyEvent('Finishing something');
end;