Главная страница
    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.44 MB
Время: 0.004 c
1-57114
Delphir
2002-02-02 11:45
2002.02.18
Cloning ListView and ComboBox


4-57260
Man In Red
2001-12-20 21:04
2002.02.18
Как отправить SMS?


3-56988
xmapa
2002-01-23 16:20
2002.02.18
Можно ли в QuickReport выводить текст вертикально?


14-57214
Andrews
2001-12-28 15:57
2002.02.18
С новым 2002 годом!


3-56989
Стас
2002-01-23 12:35
2002.02.18
Создание таблицы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский