@furious programming Próbowałam ale coś mi nie wychodziło jak wysłać LParam wskaźnik na obiekt wątku? LParam jest typu jak dobrze pamiętam NativeUInt a nie Pointer
Normalnie rzutuje się referencję na ogólny wskaźnik, a ten finalnie na liczbę:
uses
Windows;
function ObjectToLParam(const AObject: TObject): LPARAM;
begin
Result := LPARAM(Pointer(AObject));
end;
function LParamToObject(const ALParam: LPARAM): TObject;
begin
Result := TObject(Pointer(ALParam));
end;
W Lazarusie działa też bezpośrednie rzutowanie referencji na liczbę i vice versa:
function ObjectToLParam(const AObject: TObject): LPARAM;
begin
Result := LPARAM(AObject);
end;
function LParamToObject(const ALParam: LPARAM): TObject;
begin
Result := TObject(ALParam);
end;
Nie wiem który sposób będzie działać pod Delphi – pierwszy powinien.