Hallöle...
hab mit folgender Anweisung...
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Button4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
OldPosX := button4.Left;
OldPosY := button4.Top;
ReleaseCapture;
TWinControl(Button4).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end; |
... ein Button, was ich durch die Gegend ziehen kann. Funktioniert soweit auch ganz gut.
Nun wollt ich mit jener Anweisung...
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source = Button4 then
begin
button4.Left := OldPosX;
button4.Top := OldPosY;
end;
end; |
... dafür sorgen, das der Button wieder an seinen alten Ort "zurückkehrt" wenn ich ihn über dem Panel absetze.
Funktioniert leider nicht.
Kann mir einer weiterhelfen?
Vielen Dank schonma...
mfg
kiwicht
