[Delphi] Oknodo okna

Mam problem
nie rozumiem togo w faqu

jak zrobic zeby form1 doklejala sie do drugiej.
prosze o zrodlo. ;-( ;-( ;-( ;-( ;-( ;-( ;-( ;-( ;-( ;-( ;-(

Przyszlo mi na mysl...

Form2.Left:=Form1.Left+Form1.Width;

[cya]

Chodzi mi dokladniej o cos takiego jak playlista wzglendem winampa

cześć ...
w 1 formie daj :
procedure TForm1.FormActivate(Sender: TObject);
begin
form2.visible := true;
end;
a w drugiej :
form2.Left := form1.height;
mam nadzieję że dobrze :-)

Sprawdze to a Chodzi mi o to
ze gdy podczas przesuwania sie form 2 do form1 to for 2 dociognie sie automatycznie do form1 gdy bendzi w odpowiedniej odleglosci od niej.

To dziala na pewno (sprawdzilem) jesli lewy-dolny rog Form1 jest w odleglosci 20px od lewego-gornego rogu Form2:

[code]
procedure TForm2.przyklej;
begin
if ((Form1.Left-Form2.Left-20))
and
((Form1.Top+Form1.Width-Form2.Top-20)) then
begin
Form2.Left:=Form1.Left;
Form2.Top:=Form1.Top+Form1.Height;
end;
end;

[/code]

Z kodu wiadomo o co w tym chodzi (chyba) wiec mozesz sobie dopisac warunki dla innych bokow formularzy.

Pozdrawiam [cya]<font size="7"></span>

Oki, ale mi wstyd [wstyd]

Zobacz sobie przyklejony temat: "jakpisać.."

zamiast pisac post przeczytałbyć dokładnie ..jest na tej stronie..wskazówka Adama