Komponenten verschiebbar / Größe veränderbar

[cyborg]

hab jetzt im forum herumgesucht, aber nichts gefunden:

wie schaffe ich es, dass ich zB auf einem panel objekte erstelle die der benutzer dann verschieben und vergrössern kann, wie er will?

Drag and Drop scheint nicht zu gehen und Docking hat das problem, dass man damit das item rausziehen kann...

Was ich will:

ein programm machen, welches verschiedene bilder dynamisch anzeigen und verschieben lassen kann: d.h. image objekte auf einem panel, die man herumschieben oder vergrössern kann bzw. (durch CreateNew) neue hinzufügen kann usw.

[Sanchez]

Das verschieben funktioniert mit Drag & Drop ganz gut. Setze DragMode bei deinen Objekten auf dmAutomatic.
In den OnDragOver-des Objektes und der Panele musst du die Koordinaten des gezogenen Objektes umsetzen. Wichtig ist in diesen Ereignissen ein

Delphi-Quellcode:

Accept := true;

Das Vergrössern hab ich so gelöst:

bei Rechtsclick auf das Objekt wird

Delphi-Quellcode:

DragMode := dmManual;

damit das Objekt nicht gleich gezogen wird. Du brauchst noch irgendwelche Anker auf deinem Objekt (so wie im Word die kleinen Vierecke). Wenn der Mauszeiger draufsteht und die zu ziehen beginnst, einfach Position und Größe ändern.

hab grad keinen Source dabei deswegen kann ich dir gerade nicht mehr sagen. Hoffe das hilft dir.

grüße, daniel

[SirThornberry]

Hab als Anhang ne unit mit nem TObject drin mit dem es möglich ist ein TImage zu verschieben bzw die größe zu ändern... Kann ohne Probleme auf Andere Komponenten wie TButton geändert werden..

[cyborg]

das mit dem Dragging habe ich so gelöst:

Delphi-Quellcode:

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
VAR S: TControl;
begin
Accept:=TRUE;
S:=Source as TControl;
S.Left:=X;
S.Top:=Y;
end;

Problem: wenn ich das bild nun verschieben will und es liegt ein anderes objekt auf dem panel, bekommt mein panel nicht die drag anweisung...
kann ich irgendwie die drag anweisung für die anderen objekte (zB das gedraggte bild selbst) verändern, oder muss ich nun bei dem bildobjekt ebenfalls ein OnDrag erstellen, welches es an das panel weiterleitet?

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[cyborg]

habe das nun gelöst indem ich

Delphi-Quellcode:

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
VAR S: TControl;
begin
Accept:=TRUE;
S:=Source as TControl;
with Sender as TControl do begin
S.Left:=Left+X;
S.Top:=Top+Y;
end;
end;

bei den objekten verwende. ist sicher nicht hübsch, erfüllt aber den zweck.
wenn wer was besseres hat, gerne!

danke für das resize-ding! echt cool.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[cyborg]

Neues Problem, in Relation zu DragOver, ich weiss nicht ob ich da extra ein neues Thread starten soll, womöglich wenn hier keiner antwortet :D

Bei einem DragOver fängt er meine MouseDown routinen nicht mehr ab. das finde ich aber jammerschade

ich habe versucht in einem mousedown die cursorposition des mauszeigers zu merken um die items "relativ" verschieben zu können. sonst rutscht das bild - wenn ich die bisherigen funktionen verwende sofort mit Left,Top an den Ort des Mauszeigers. Aber das verschieben soll natürlich anders sein!

hmm... muss da noch dran feilen, aber kann man irgendwie bewirken, dass er mousedown wichtiger nimmt?

[Sanchez]

Mein Vorschlag (bin mir nicht sicher ob es funktioniert):

Im DragOver der Objektes fragst du ab:

Delphi-Quellcode:

if Source = self then begin
  if State = dsDragEnter then begin
    altx := x;
    alty := y;
  end else if state = dsDragMove then begin
    self.Left := self.Left + x  - altX;
    self.Top  := self.Top + y  - alty;
  end;
end;

Altx und Alty müssen Membervariablen des Objektes sein.
Sollte so funktionieren, wenn ich mich nicht irre. Schönen Tag noch