[delphi] tagi z plików MP3 zakodowanych w formacie ID3v2
[delphi] problem ze zmianą ikony programu
[delphi] Rysowanie na Canvasie z pliku *bmp
Samsung GT-B3410 Delphi
[delphi] sprawdzanie poprawności adresu
[delphi] efekt przewijania label'a
Algorytm sortowania bąbelkowego w Delphi
[delphi] konstrukcja wyjątku
[Delphi] Program w zasobniku....
[delphi] edytowanie itemu
chomiki
Mam tki problem. Tworzę Full Musica i potrzebuje przylepić formę jedną do drugiej i kiedy jest przesuwana jedna, druga jest obok. Jak wykonać taki efekt?Musisz sprawdzać czy twoja jedna forma jest "przyklejona" do drugiej, jeśli tak to druga ma mieć taki top jaki ma pierwsza forma top+height.
Przykład:
procedure TForm1.Timer1Timer(Sender: TObject);
var a:integer;
begin
a:=form1.Top+form1.Height;
if not((Form1.Top+form1.Height)=(Form2.Top)) then
{nie uwzględniłem czy jest aktualnie przyklejona, ale to sobie sam wymyśl, albo zrób obiekt RadioButton czy ma być przyklejane czy nie i wtedy timera wyłączasz ;) }
form2.Top:=a;
end; Akurat do timera podstawiłem .
I tworzysz podobny kod do innych właściwości (takich jak left lub innych które Ci pasują).
Możesz też ten kod podpiąć do eventu o przesuwaniu okna (ale ja nie wiedziałem który ).
ja zrobiłem coś takiego:
if (FPlaylist.Top= FGlowna.Top) and(FPlaylist.Left = FGlowna.Left + FGlowna.Width) then
begin
FPlaylist.Top := FGlowna.Top;
FPlaylist.Left := Fglowna.Left + FGlowna.Width;
end;
ale lepiej się sprawuje:
FPlaylist.Top := FGlowna.Top;
FPlaylist.Left := Fglowna.Left + FGlowna.Width;
