Forum: Sonstige Fragen zu Delphi
by Progman,
11. Jan 2012
Ja, weil dieses
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
die Wirkungsweise dieser Proceduren unterbricht.
Ich arbeite auch grad an einem Programm, dass diese Routinen nutzt. Allerdings verschiebe ich TImages. Und ich habe kein Hängenbleiben oder irgendwelche Verzögerungen beim Schieben.
Vielleicht ist dein System einfach nur zu träge für sowas?
Forum: Sonstige Fragen zu Delphi
by Progman,
11. Jan 2012
Meine Anmerkung bezog sich auf den Original-Code aus dem Link:
procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if FDragging then
with Sender as TControl do
begin
Left := X - FDownX + Left;
Top := Y - FDownY + Top;
//in etwa: if (Left=20 and Top>20) then.....
Forum: Sonstige Fragen zu Delphi
by Progman,
11. Jan 2012
In ControlMouseMove sollte man solche Prüfungen durchführen.