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

Вниз

Вызов фенции   Найти похожие ветки 

← →
Ptr   (2002-02-04 10:53) [0]

Подскажите, pls, как передать в качестве аргументы функции - другую функцию и затем передать на нее управление...

---

← →
Виктор Щербаков ©   (2002-02-04 11:01) [1]

---
procedure Proc2; stdcall;
begin
beep;
end;

procedure Proc1(Addr: Pointer);
type TProc2 = procedure; stdcall;
var MyProc2: TProc2;
begin
MyProc2 := Addr;
MyProc2; // собственно вызов
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Proc1(@Proc2);
end;
---

---

← →
Ptr   (2002-02-04 11:37) [2]

Большое спасибо

---

← →
Ptr   (2002-02-04 12:05) [3]

А если Proc2 имеет свои аргументы? как ох объявить?

---

← →
Виктор Щербаков ©   (2002-02-04 12:09) [4]

---
procedure Proc2(Arg1, Arg2: Integer); stdcall;
begin
Windows.beep(100, 100);
end;

procedure Proc1(Addr: Pointer);
type TProc2 = procedure(Arg1, Arg2: Integer); stdcall;
var MyProc2: TProc2;
begin
MyProc2 := Addr;
MyProc2(100, 100); // собственно вызов
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Proc1(@Proc2);
end;
---

---

← →
Ptr   (2002-02-04 12:12) [5]

Огромное тебе спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

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

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

Наверх

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