Текущий архив: 2002.11.21;
Скачать: CL | DM;

Вниз

Как создать...   Найти похожие ветки 

← →
Fog ©   (2002-11-09 15:05) [0]

... процедуру типа TNotifyEvent? Ясно что ето procedure(Sender:TObject) of object; но если создать процедуру procedure Proc(Sender:TObject); и попробовать Button1.OnClick := Proc(Sender); то получится:
[Error] uMain.pas(30): Incompatible types: "TNotifyEvent" and "procedure, untyped pointer or untyped parameter"

---

← →
Геннадий ©   (2002-11-09 15:22) [1]

Не ты один с этим столкнулся. Просто в описании формы добавь procedure MyName(Sender : TObject);
А в OnCreate (или где тебе надо) - Button1.OnClick:= MyName;

Программно вызывается так: Button1.Click или MyName(Self/NIL)
Ну и по щелчку юзера.

---

← →
Fog ©   (2002-11-09 15:48) [2]

а ежль надо для только что созданного объекта например:

with TButton.Create(Self) do
begin
Tra-la-la := bla-bla-bla;
OnClick := MyProc;
end;

---

← →
Anatoly Podgoretsky ©   (2002-11-09 15:52) [3]

Да если MyProc в том же классе

---

← →
Alex44   (2002-11-09 19:35) [4]

procedure =\= procedure of object !
(procedure zanimaet 1 pointer, a procedure of object---2).
TNotifyEvent = procedure ... of object;
T.e., objazatel"no

type
MyFunnyObject = class(...)
procedure MyClick(Sender: TObject);
end;

---

← →
Fantasist   (2002-11-10 01:45) [5]


procedure Proc(Self:pointer;Sender:TObject);
begin
TButton(Sender).Caption:="ee";
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
@Button1.OnClick:=@Proc;
end;


или более культурно:


procedure Proc(Sender:TObject);
begin
TButton(Sender).Caption:="ee";
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TMethod(Button1.OnClick).Code:=@Proc;
TMethod(Button1.OnClick).Data:=nil;
end;


---

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

Текущий архив: 2002.11.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c