Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
7. Jun 2006
Hallo Matt83,
herzlich willkommen in der Delphi-PRAXiS.
Wenn du im Ereignis OnMouseDown() der Form ReleaseCapture() aufrufst, wird es sobald kein OnMouseUp() mehr geben. Das bedeutet, dass du das Dragging der Form irgendwie anders - sprich selbst - programmieren musst. Falls du funktionierenden Code dazu hast, könntest du ihn hier einstellen.
Freundliche Grüße vom marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
7. Jun 2006
Hallo Doreen,
vielleicht ist dir geholfen, wenn du die Alt-Taste hinzu nimmst:
const
SC_DRAGMOVE = $F012;
procedure TDemoForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);