Forum: Programmieren allgemein
by Tyrael Y.,
14. Aug 2009
Hm, kommt die Wheel Nachricht als Sendmessage oder als Postmessage an, das weiss ich selber gerade nicht?
Ich will darauf hinaus, daß SendMessage eine blockiert bis die Nachricht als empfangen gewertet wird.
Die Nachricht gilt als empfangen, wenn der MessageHandler abgearbeitet wurde.
Wenn ZoomIn und ZoomOut im selben Thread wie dieser MessageHandler sind, wird auf das Bestätigen gewartet...
Forum: Programmieren allgemein
by Tyrael Y.,
14. Aug 2009
Ich glaube dein Problem liegt woanders, weil folgendes funtioniert einwandfrei.
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
private
{ Private-Deklarationen }