Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sanchez,
24. Sep 2003
Mein Vorschlag (bin mir nicht sicher ob es funktioniert):
Im DragOver der Objektes fragst du ab:
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sanchez,
23. Sep 2003
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
Accept := true;
Das Vergrössern hab ich so gelöst:
bei Rechtsclick auf das Objekt wird