Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Problem mit Drag&Drop


Ice - Di 10.12.02 11:23
Titel: Problem mit Drag&Drop
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


Delete - Di 10.12.02 11:54

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;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!