[Delphi] Losowe rozmieszczanie form

0

Mam pytanie, Czy jest możliwosć losowego rozżucania form po pulpicie jednak tak aby na siebie nie zachodziły i żeby po każdymm uruchomieniu programu to "losowe" rozmieszczenie było inne (bo w przypadku randomize i liczb co uruchomienie programu losował te same liczby :))

Za pomoc z góry dziękuje.

0

A używałes np w OnCreate formatki czegoś takiego jak randomize [???] Jeśli nie to użyj. Jest to inicjalizacja generatora liczb losowych, dzięki czemu używasz liczb generowanych z zegara systemowego (chyba tak to jest robione) a nie pseudo generatora. Reszta jest tak samo. natomiast co do nie zachodzenia formatek to chyba sobie poradzisz.

Jeśli nie to pisz. [cya]

0

(bo w przypadku randomize i liczb co uruchomienie programu losował te same liczby)

zeby nielosowal tych samych liczb uzyj:
[code]Randomize();
Var1 := Random(Var2);[/code]

0

Kurde przecież dokladnie to napisalem. A tak w ogole to randomize nie powinno sie uzywac w programie wiecej jak raz! :-8

0

Chyba źle mnie zrozumieliście, mi chodzi o to żeby przy każdym np. pierwszym losowaniue od odpalenie proga nie wylosowywał tych samych liczb ...

0

Nie wiem czy dobrze zrozumialem, ale czy codzi Ci o cos takiego??

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Form1.Top := Random(Screen.Height - Form1.Height);
Form1.Left := Random(Screen.Width - Form1.Width);
end;

A jesli chcesz aby absolutnie nigdy sie nie powtarzaly to zapisuj wyniki do pliku a pozniej sprawdzaj, czy juz takie ustawienie formy bylo.

0

A tak w ogole to randomize nie powinno sie uzywac w programie wiecej jak raz! :-8

Dlaczego?? Nie widzę żadnego powodu, aby nie uruchamiać Randomiza 2 razy.

1 użytkowników online, w tym zalogowanych: 0, gości: 1