Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matt83,
7. Jun 2006
Hi, danke. Mein Minus Erster Eintrag nach 6 Monaten :)
Das ReleaseCapture hab gerade komplett übersehen :) Dann schlag ich einfach mal folgendes vor.
Edit: Wenn du so machst, funktioniert aber acuh OnClick wieder ;-) Daher kannst du dann MouseUp weglassen...
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matt83,
7. Jun 2006
Warum machst du den OnClick-Code nicht einfach in das OnMouseUp. Und überprüfst davor, ob sich die Maus um ein paar Pixel bewegt hat. Wenn nicht, wäre das für mich ein Click ;-)