Скачать: CL | DM;

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 это и так объект созданного мною класса

---

← →
Sandman25 ©   (2004-06-15 14:44) [9]

[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;

---

← →
}|{yk ©   (2004-06-15 15:04) [10]

Опять Variable required

---

← →
Sandman25 ©   (2004-06-15 15:08) [11]

[10] }|{yk ©   (15.06.04 15:04)

Жаль :)

---

← →
Sha ©   (2004-06-15 15:18) [12]

}|{yk ©   (15.06.04 15:04) [10]

Код давай.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c