Problem mit Drag&Drop

Ice · Beiträge: 114

Hallo Leute!

Ich habe da ein Problemchen und zwar versuche ich dynamisch, also zur Laufzeit erzeugte TPanels per Drag & Drop zu verschieben, weiss allerdings nicht so richtig wie. Gibt es Standardprozeduren oder muss man das alles selber schreiben z.B. mit OnMouseMove oder so? Vielen Dank schonmal im voraus.

Ice

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

  var
  Form1: TForm1;
  bMD: Boolean = FALSE;

implementation

{$R *.DFM}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  bMD := TRUE;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if bMD = TRUE then
  begin
    Panel1.Left := Panel1.Left+x;
    Panel1.Top := Panel1.Top+y;
  end;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  bMD := FALSE;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme