Как передать в функцию CallBack процедуру?

← →
still_swamp © (2004-04-09 17:48) [0]

type
TMyProc = procedure(i:integer);

Prc: TMyProc;

procedure Prc;
begin
ShowMessage("asd");
end;

SendProc(@Prc); - это хочет параметров не воспринимая @Prc как параметр. Что нужно сделать. Подскажите плс.

← →
Smithson © (2004-04-09 17:56) [1]

Опиание SendProc покажи

← →
still_swamp © (2004-04-09 17:57) [2]

function SendProc(AProcCallBack:TMyProc):integer;

← →
Тимохов © (2004-04-09 18:00) [3]

убрать @

и описать процедуру prc с праметром, также как описана tmyproc

← →
Smithson © (2004-04-09 18:00) [4]

Сталбыть - SendProc(Prc);

← →
still_swamp © (2004-04-09 18:06) [5]

компилятор говорит Conversion Differ.
да - маленькое уточнение:
procedure Prc; - эта процедура некого TObject.

нечто вроде
TMyObject = Class (TObject);
procedure Prc:TMyProc;
end;

← →
Smithson © (2004-04-09 18:08) [6]

А вот так нельзя. Для этого TMyProc необходимо описать как procedure of object.

← →
still_swamp © (2004-04-09 18:16) [7]

TMyProc = procedure(i:integer) of object;

пробовал.
тогда говорит не совпадает Procedure и untipet pointer

гдя я мог ошибиться.

← →
Тимохов © (2004-04-09 18:19) [8]

вы ошиблись в одном не прочли раздел хелпа

object pascal reference \ data types \ procedural types

← →
still_swamp © (2004-04-09 18:22) [9]

TProcSetColor = procedure (ARGBA:TRGBA) of object;

function EditRGBA(.....; AProcSetColor:TProcSetColor): Integer; stdcall external "rgba.dll";

type
T_FormList = class(TForm)
function ChangeColorNavigateSphere(ARGBA: TRGBA):integer;

EditRGBA(.... @ChangeColorNavigateSphere);

> гдя я мог ошибиться.

Везде и ошибся! :)
type TSomeMethod = procedure(i: Integer) of object; TSomeClass = class(...) ... SomeMethod: TSomeMethod; ... end; TAnotherClass = class(...) ... procedure AnotherMethod(i: Integer); ... end; ... procedure UseSomeMethod(AMethod: TSomeMethod); ... SomeMethod := AnotherMethod; ... UseSomeMethod(A.SomeMethod); ... procedure UseSomeMethod(AMethod: TSomeMethod); begin end; ...

ок - читаю...

бред написал - сам вижу.
звиняйте... :)

Как передать в функцию CallBack процедуру? Найти похожие ветки