Jak uruchomić formatkę na drugim monitorze?

0

Witajcie,

Potrzebuję prostą rzecz. Mam aplikację z dwiema formatkami. Pierwsza otwiera się domyślnie na domyślnym monitorze. Druga po naciśnięciu przycisku chciałbym aby otwarła się na monitorze numer 2.

Próbowałem już to rozwiązanie:
http://stackoverflow.com/questions/3118751/how-can-i-display-a-form-on-a-secondary-monitor
Próbowałem tak:

  Form2 := TForm2.Create(Self);
  try
    Form2.Left := Screen.Monitors[Screen.MonitorCount-1].Left;
    Form2.Top := Screen.Monitors[Screen.MonitorCount-1].Top;
    Form2.ShowModal;
  finally
    Form2.Free;
  end;

i nic dalej nie chce mi to działać. Czy ustawienia formy w dfm muszą być jakoś specjalnie ustawione? Pytam o Default Monitor i Position

0

zdaje się że dopiero przy ShowModal ustawia się left i top, więc musisz to zrobić w tej drugiej formie na jakiś zdarzeniu show

0

Spróbuję i tak

0

Jak ustawiłem Left i Top na OnActivate to zadzaiałało pięknie.

PS.
Problemem był też fakt, że uruchamiałem aplikację przez TeamViewera. Przy bezpośrednim podłączeniu poszło bez problemów.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.