RUCHY FORMY

Witam ustawilem forme na NONE
i zamiast windowsowskiego paska dalem "panel" na "top"
Tylko ze mam problem =[ bo nie moge "poruszac" forma za pomoca tego panela =[

Jak zrobic aby panel dzialal jak belka winWinShita??

Przykład :

var
MD : Boolean;
P : TPoint;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MD := True;
P := Point(X, Y);
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if MD then
begin
Left := Left + (X - P.X);
form2.left := form2.left + (X - P.X);
form2.Top := form2.top + (Y - P.Y);
Top := Top + (Y - P.Y);
end;
end;

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

Pozdrawiam

//Przypominam o istnieniu utagów i - Moderator

Witam ustawilem forme na NONE
i zamiast windowsowskiego paska dalem "panel" na "top"
Tylko ze mam problem =[ bo nie moge "poruszac" forma za pomoca tego panela =[

Jak zrobic aby panel dzialal jak belka winWinShita??

czloweiczq :p poszukaj se najpierw a potem sie o to pytaj bo jest to zastosowane w programiku do odtwarzania mp3jek tak samo jak to wykonal norbert_290 nafet te same zmiene :