Главная страница
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.013 c
4-57247
Flash .
2001-12-19 04:14
2002.02.18
ALT+CTRL+DEL


1-57082
Злой_Гном
2002-02-01 18:12
2002.02.18
Помогите положить ProgressBar в StatusBar.Panels


1-57070
Ura
2002-02-01 16:53
2002.02.18
Потоки


14-57206
Himler
2001-12-27 22:15
2002.02.18
Как вы зарабатывали когда были студентом?


1-57101
Song
2002-02-02 10:19
2002.02.18
Как получить иконку зарегистрированного расширения для несуществующего файла?