Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

Событие.   Найти похожие ветки 

← →
Tatyana   (2004-02-16 00:37) [0]

Подскажите, пожалуйста, как создать свое событие(синтаксис)? Как назначить событию метод?

---

← →
Юрий Зотов   (2004-02-16 01:00) [1]

type
TMyEvent = procedure(I, J: integer) of object;

TMyComponent = class(TComponent)
private
FMyEvent: TMyEvent;
protected
procedure DoMyEvent; dynamic;
published
property MyEvent: TMyEvent read FMyEvent write MyEvent;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure MyEventHandler(I, J: integer);
end;

procedure TMyComponent.DoMyEvent;
begin
if Assigned(FMyEvent) then FMyEvent(333, 222)
end;

procedure TForm1.MyEventHandler(I, J: integer);
begin
ShowMessage(IntToStr(I + J))
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TTMyComponent.Create(Self) do
try
MyEvent := MyEventHandler;
DoMyEvent
finally
Free
end
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c