Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
4-57246
YUS
2001-12-12 20:43
2002.02.18
Нужна помощь


1-57054
BJValentine
2002-01-27 11:31
2002.02.18
DBGrid


14-57209
vector
2001-12-29 12:23
2002.02.18
Не могу нормально посмотреть форумы Delphi


1-57094
lvovich
2002-02-02 10:45
2002.02.18
Модальные окна


7-57228
ATeam
2001-10-25 15:01
2002.02.18
Как скопировать файл в clipboard.