Luki napisał:
Witajcie
>
>Temat troche zawiły ale chodzi mi o coś takiego:
>
>mam dwie Formy widoczne po uruchomieniu.
>I teraz chce zrobić tak żeby poruszając pierwszą formą, ruszała się druga pozostając w tych samych odstępach od pierwszej.
>Tyle że po kliknięciu na pasek pierwszej formy nie na Forme (czyli tam gdzie jest Caption Formy i przyciski do zminimalizowania, zamknięcia...).
>Wiem że cos trzeba wpisac w OnMouseUp, OnMouseDown i OnMouseMove. Tylko co?????
>
>THX
>
var
Fx,Fy: Integer;
ButtonDownX: Boolean = false;
{ GLOBALNE }
procedure TForm1.Gradient1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) and (not ButtonDownX) then
ButtonDownX := true;
FX := X;
FY := Y;
end;
procedure TForm1.Gradient1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ButtonDownX then
begin
Form1.Left := Form1.Left + X - FX;
Form1.Top := Form1.Top + Y - FY;
Form2.Left := Form1.Left + Form1.Width;
Form2.Top := Form1.Top;
end;
end;
procedure TForm1.Gradient1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ButtonDownX := False;
end;
--[ Delphi... i wszystko jasne ]