Form2 auf monitor2 ???

[Bernd29bln]

Danke Michaela für deine mühe, aber die form landet immer auf dem ersten bildschirm.

hier mal der code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  lDevMode : TDevModeA_new;
  lRes     : Cardinal;
begin
    FillChar(lDevMode, SizeOf(lDevMode), 1);

    lDevMode.dmSize                    := SizeOf(lDevMode);
    lDevMode.dmBitsPerPel              := 32;
    lDevMode.dmDisplayFrequency        := 85;     // alles hard kodiert für meinen 2. Monitor
    lDevMode.dmPelsWidth               := 1024;
    lDevMode.dmPelsHeight              := 768;
    lDevMode.Dual.Monitor.dmPosition.x := 1024; // die Weite/Auflösung des primären Monitors bzw. Lage des Monitors in Relation zum primären Monitor mit 0,0 oben links
    lDevMode.Dual.Monitor.dmPosition.y := 0;
    lDevMode.dmFields                  := DM_BITSPERPEL Or
                                          DM_DISPLAYFREQUENCY Or
                                          DM_PELSWIDTH Or
                                          DM_PELSHEIGHT Or
                                          DM_POSITION;

    lRes := ChangeDisplaySettingsEx( PChar('\\.\DISPLAY2'),
                             TDevMode(lDevMode),
                             0,
                             CDS_UPDATEREGISTRY,
                             0);
    if Screen.MonitorCount > 1 then begin
    Form2.Left := Screen.Monitors[0].Left;
    Form2.Top:= Screen.Monitors[0].Top;
    Form2.Show;

    If lres <> 0 Then
      ShowMessage('hat nicht geklappt');
end;
end;

MfG