Zwei Forms - Zwei Monitore

[sx2008]

Delphi-Quellcode:

procedure TForm2.MoveTo2ndMonitor;
begin
   if Screen.MonitorCount > 1 then
      with Screen.Monitors[1] do
      begin
         self.left := left;
         self.top  := top;
      end;
end;

procedure TForm2.ToggleWindowState;
begin
   if WindowState = wsMaximized then
   begin
      WindowState := wsNormal;
      BorderStyle := bsSizeable;
   end
   else
   begin
      // ohne Rand im Vollbild auf 2. Monitor verlegen
      MoveTo2ndMonitor;
      BorderStyle := bsNone;  
      WindowState := wsMaximized;
   end;
end;


// Doppelklick auf Formular schiebt Fenster im Vollbild auf 2. Monitor
// bzw. wieder zurück
procedure TForm2.FormDblClick(Sender: TObject);
begin
   ToggleWindowState;
end;