Form2 auf monitor2 ???

[Bernd29bln]

Hallo,

Ich möchte das meine Form2 auf meinem 2ten Bildschirm angezeigt wird. wie geht das?

Mfg

[Waldteufel]

Hi.

Warum lässt du den Benutzer nicht selbst entscheiden, wo er das Formular gern hätte? ;-)

Ansonsten ist das wohl bei jedem Hersteller anders... Es müsste da eine API geben...

[Bernd29bln]

Ich hätte gern das es erstmal auf dem 2ten bildschirm läft .
später kann man dem user ja ne option machen, wo er den das fenster gerne hätte.

MfG

[Waldteufel]

Hi.

Dann fällt mir jetzt nur ein, dass du es schon in der IDE auf den 2. Bildschirm schiebst... :gruebel:

[Michaela_]

Form auf zweiten Bildschirm:

Delphi-Quellcode:

  if Screen.MonitorCount > 1 then begin
    Form2.Left := Screen.Monitors[1].Left;
    Form2.Top:= Screen.Monitors[1].Top;
    end;

lg,
michaela

[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

[Michaela_]

Monitors[1].Left

Hast du den zweiten Monitor auch als "Desktop" eingerichtet und nicht nur als "Kopie" der Primärschirmes?

lg,
michaela

[Bernd29bln]

Ja hab ich (Desktop Erweiterung)

MfG

[supermuckl]

du must erstmal den monitor 1 nehmen und nicht 0

und dann könnte es sein, das das form erst sichtbar sein muss und DANN verschieben.

klingt etwas komisch, ist aber bei vielen anwendungen bei mir nicht anderst gegangen (!)

[Bernd29bln]

Kann man die form nicht anders übergeben, an den monitor 2

MfG

[Bernd29bln]

hab ich geändert auf 1 geht net

[Michaela_]

Hast du im Objektinspetor

Delphi-Quellcode:

  Form2.Position := poDefault;

gesetzt oder zentrierst du die Form auf den Bildschirm?

[supermuckl]

wie gesagt, versuch es, erst form2 anzuzeigen UND DANN zu verschieben !

[roderich]

steht Position vielleicht nicht auf poDesigned, sondern auf poScreenCenter o.ä. ?

Und was sagt der Debugger ?

Roderich

Michaela war schneller.... :wink:

[Bernd29bln]

die form2 wird ja angezeigt, halt nur auf monitor1.
es steht auf poDesigned.

MfG

[roderich]

schieb doch mal während der Laufzeit das Form auf deinen 2. Bildschirm und guck dir einfach mal im Debugger an, welcher Wert Form2.Left ist.

Meine Forms merken sich ihre Position selbst in der Regsitry und werden selbst auf einem 3-Screen-System beim nächsten Start wieder richtig angezeigt. Ich musste dort aber im Grafiktreiber (Matrox sowieso) eine Option setzen, daß neue Formulare NICHT immer auf dem Primärbildschrim erscheinen.

Was du mit deinem ChangeDisplaySettingsEx anstellst, ist mir übrigens komplett schleierhaft.

Roderich

[Bernd29bln]

na es ist so, ich habe eine redeon 9800 se die hat 3 ausgänge, um diese benutzen zukönnen muss ich mit ChangeDisplaySettingsEx arbeiten.

MfG

[supermuckl]

also ich stell das einfach in meinen anzeige optionen von windows ein, welcher moni an welchem port hängt ?! da muss ich nix coden