Synhronize требует TNotifyEvent

← →
}|{yk © (2004-06-15 13:32) [0]

А как в нее передать процедуру с параметрами?

← →
Sandman25 © (2004-06-15 13:41) [1]

Никак. Но можно параметры хранить как члены класса и использовать в том методе, который вызывается через Synchronize

← →
}|{yk © (2004-06-15 13:45) [2]

А указатель на функцию как передать?

← →
Sandman25 © (2004-06-15 13:46) [3]

как члены класса

← →
Mim1 © (2004-06-15 13:52) [4]

procedure SyncProc(ASelf, Sender: TObject); begin end; ... var amethod: TMethod; begin amethod.Code := @SyncProc; amethod.Data := application; Synchronize (amethod); end;

← →
Mim1 © (2004-06-15 13:53) [5]

А вот такSynchronize (TNotifyEvent(amethod));

← →
}|{yk © (2004-06-15 14:37) [6]

Пишу
amethod.Code:=@Sync.LoadStrToMemo;
получаю Variable required

← →
default © (2004-06-15 14:42) [7]

см. [1]

← →
}|{yk © (2004-06-15 14:44) [8]

Т.е.? Sync это и так объект созданного мною класса

[6] }|{yk © (15.06.04 14:37)
type
TMyFunc = function(Param1: integer; param2: word): boolean;
TMyThread = class(TThread)
...
private
DoItParam1: integer;
DoItParam2: word;
DoItFunction: TMyFunc;
end;

function Function1(Param1: integer; param2: word): boolean;
begin
..
end;

procedure TMyThread.DoIt;
begin
DoItFunction(DoItParam1, DoItParam2);
end;

procedure TMyThread.Execute;
begin
...
DoItParam1 := 1;
DoItParam2 := 2;
DoItFunction := @Function1;
Synchronize(DoIt);
end;

Опять Variable required

Synhronize требует TNotifyEvent Найти похожие ветки