Forum: Win32/Win64 API (native code)
Delphi
by Tonic1024,
27. Jun 2005
Okay, da dein Form wohl eh relativ "unsauber" geproggt ist - Khabarakh's Vorschlag würde ich da auch dazuzählen - könnte ich dir mal eine Weitere "unsaubere" Lösung anbieten.
Starte beim OnMouseDown einen Timer, der die Werte prüft. Sollte beim OnMouseUp irgendetwas schiefgegangen sein setze die Werte nach 1000ms mauell zurück. Das ist zwar etwas aufwand, sollte das Problem aber eindeutig...
Forum: Win32/Win64 API (native code)
Delphi
by Tonic1024,
23. Jun 2005
Hab mich eben noch mal reingedacht. Habs nun aber ein wenig eilig -> Feierabend :???: :wink:
Schau dir mal diesen Code an. Ausführliche Erklärung folgt morgen. Hat mit Focusverlust zu tun (der Event wird über dem Button nicht ausgelöst, weil es nicht mehr das aktuelle Element ist).
MfG
Toni
Forum: Win32/Win64 API (native code)
Delphi
by Tonic1024,
23. Jun 2005
Hm... Das ist nun echt schwierig zu testen, wenn man den UO Client nicht hat.
Du könntest mal versuchen den kompletten Quelltext aus der Funktion auszukommentieren. Dann sollte zumindest der Button richtig funzen. Wenn das so ist, weisst du, dass der Fehler ganz bestimmt in dieser Funktion steckt.
Danach würde ich einen Haltepunkt am Anfang der Funktion setzen und mit F8 durchsteppen...
Forum: Win32/Win64 API (native code)
Delphi
by Tonic1024,
21. Jun 2005
Du verwirrst mich...
Wenn du rechts klicks passiert nichts, aber der Button wird trotzdem groß? Was denn nun?
Irgendwie solltest du mal einen Schnipsel Code posten, damit man sich mal ein Bild davon machen kann.
Ein Lösungsansatz wäre die MouseUp-Funktion manuell aufzurufen (mitt allen parametern, die du ja hast:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;...