Proste za pewne pytanie a mianowicie jak zrobić by przesuwając jedno okno (Form1) po ekranie ciągnęło się za nim drugie (Form2) tak jak np. Winamp: Okno główne i lista utworów...
0
0
np:
- przez timer
- komunikaty
0
Timera wolałbym nie używać a po prostu potrzebuje żeby wywoływały się te polecenia:
Form2.Top:=Form1.Top;
Form2.Left:=Form1.Left+Form1.Width;
podczas przesuwania form1. Jak to zrobić przez komunikaty?
0
np poprzez WM_MOVING
0
Tyle to się już domyśliłem ale nie wiem jak zapisać to by było prawidłowo :)
0
Pokazuje tylko dla x.
zdeklaruj gdziesz old_pos: integer;
px: integer;
w OnCreate:
old_pos := Left;
w obsłudze komunitkatu:
px := Left - old_pos;
old_pos := Left;
form2.Left := form1.Left + width + px;
gdzie form2 to docelowa forma
form2 OnCreate:
left := form1.left + form1.width;
Prosze...