leider geht das immer noch nicht so wie ich es habe möcht hier mal etwas code evlt. hilft das um mein problem zu verstehen:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Paint:TPaint;
begin
Paint:=TPaint.Create(
Handle);
Label18.Caption:=IntToStr(Paint.test);
end;
zu testzwekchen wollte ich einfach nur ein variable hochzählen.
Delphi-Quellcode:
procedure MeepCallback(hwnd: HWND; uMsg: Cardinal; idEvent: Pointer; dwTime: DWORD); stdcall;
var
PaintDingens: TPaint;
begin
PaintDingens := TPaint(idEvent);
inc(PaintDingens.test);
// hier kannst du nun auf das Paint-Objekt zugreifen, das mit Integer(self) übergeben wurde.
end;
constructor TPaint.Create(WinHandle:Hwnd);
begin
SetTimer(WinHandle, Integer(self), 1000, @MeepCallback);
end; // Create
ich hoffe du siehst jetzt worauf ich hinaus möchte... und warum ich dachte das das mit wm_Timer gehen könnte(Was ürbgins auch nicht geht)