Komponente auf Client verschieben

[thomas2009]

Hallo
ich möchte für mein Preview eine kleine Bitmap auf eine andere Komponente (z.B. Image auf Panel) Mit der Maus verschieben, aber das Object (Image) was ich verschiebe, soll immer 100% sichtbar
d.h. Left Object.left kann nicht < 0 und Object.Top kann nicht <0
Und so weiter
Oder kann man die Eigenschaften in ObjectInspector irgendwie einstellen
wie im Anhang
http://www.delphipraxis.net/attachme..._preview_1-jpg

[roga]

Evtl. findest Du hier http://www.swissdelphicenter.ch/de/showcode.php?id=122 eine Anregung.

Weshalb gibt es eigentlich so eine tolle Erfindung wie die Suchfunktion?

[thomas2009]

ich habe die Funktion getestet
OK aber das Objekt soll beim verschieben nicht die die Client-Grenzen überschreitten

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
MoveControl(Sender,Button,Shift,X,Y);
end;

[Luckie]

Dann überprüfe eben, wenn es an den Clientgrenze angekommen ist.

[Daniel]

Naja, mit der auf SDC verlinkten Methode ist das nicht ganz trivial, da er die Kontrolle an Windows abgibt, sofern das zu bewegende Control ein Handle hat.

Ich fürchte, dass dies eine der Aufgabenstellungen ist, die sich nicht per Copy & Paste lösen lassen.

[himitsu]

Man könnte zumindestens zwischen MoveControl(Sender,Button,Shift,X,Y); und end; , also nach dem Loslassen der Maustaste, die Position so anpassen, daß es innerhalb der Grenzen zum Erliegen kommt.

[roga]

Ich habe Dir mal etwas aus meiner Komponente für eine elektronische Pinnwand rauskopiert - um Dir nicht die Arbeit abzunehmen, musst Du den Weg selber finden. Programmieren ist oft auch Kopfzerbrechen...

Delphi-Quellcode:

  private
    FDownX,
    FDownY: integer;
    FDragging: Boolean; 

procedure TPinItem.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  BringToFront;
  if (ssDouble in Shift) then Exit; // Doppelklick abfangen
  if (Button = mbLeft) then
  begin
    FDownX := X;
    FDownY := Y;
    FDragging := True;
    MouseCapture := True;
  end;
end;

procedure TPinItem.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var 
  pw: Integer;
begin
  if (Button = mbLeft) and FDragging then
  begin
    FDragging := False;
    MouseCapture := False;
    if (Left < 0) then Left := 0;
    if (Top < 0) then Top := 0;
    pw := Parent.Width - Width - 4;
    if (Left > pw) then Left := pw;
  end;
end;

procedure TPinItem.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  if FDragging then
  begin
    Left := X - FDownX + Left;
    Top  := Y - FDownY + Top;
  end;
end;

Daniel hat natürlich Recht, bei der vorher genannten Methode wird einem das Zepter quasi aus der Hand genommen, deshalb habe ich damals auch diese Methode mit Erfolg angewendet.

[s.h.a.r.k]

Zitat von Daniel:

Ich fürchte, dass dies eine der Aufgabenstellungen ist, die sich nicht per Copy & Paste lösen lassen.

Ich kann es mir einfach nicht verkneifen: wie kann man nur so bissig werden, wie ein Hai?!