n'abend zusammen, ich hab da ein problem:
ich will erstens ein fenster an ein anderes andocken und dann das "hauptfenster" verschieben, so dass die angedockten fenster mitgezogen werden. also so ziemlich genau das, was winamp kann. da meine forms auf bsNone gesetzt sind, verschiebe ich sie mit
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.backgroundMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
if (ssLeft in Shift) then
begin
ReleaseCapture;
self.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end; |
.
das docken an sich ist eigentlich kein problem, weil ich dafür schon eine entsprechende kompo gefunden habe. nur beim gemeinsamen verschieben gibt es problem => es geht nicht.
schon mal danke im voraus für eure hilfe.
der_zaehe
