Einzelnen Beitrag anzeigen

cyborg

Registriert seit: 15. Jan 2003
24 Beiträge
 
Delphi 7 Personal
 
#4

Re: Komponenten verschiebbar / Größe veränderbar

  Alt 23. Sep 2003, 22:29
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]
  Mit Zitat antworten Zitat