AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi externes Programm startet in nicht sichtbarem Monitor

externes Programm startet in nicht sichtbarem Monitor

Ein Thema von zeras · begonnen am 8. Feb 2024 · letzter Beitrag vom 10. Feb 2024
Antwort Antwort
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.616 Beiträge
 
Delphi 12 Athens
 
#1

externes Programm startet in nicht sichtbarem Monitor

  Alt 8. Feb 2024, 19:28
Ich habe folgenden Aufruf, mit dem ich ein fremdes Programm starte:
Delphi-Quellcode:
 FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;
  StartupInfo.dwX := XPos;
  StartupInfo.dwY := YPos;
  if CreateProcess(nil,
       PChar(Filename + ' ' + para),
       nil,
       nil,
       False,
       0,
       nil,
       nil, //PChar(Para),
       StartupInfo,
       ProcessInfo) then
  begin
Das klappt ganz gut. Ich merke mir die Postion um beim nächsten Start ist alles OK.
Dann nimmt ein User seinen Laptop mit nach Hause, wo der Monitor rechts nebem dem Laptop und nicht links. Dann sehe ich zwar in der Taskleiste, dass sich das Programm geöffnet hat, aber es wird nicht angezeigt. Das gleiche passiert, wenn man einen Beamer angeschlossen hat und auf diesem Beamer das Programm nutzt. Wenn ich da den Beamer ausschalte, versucht Windows trotzdem, das Programm auf dem Beamer darzustellen.
Wie kann ich so etwas verhindern?
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.161 Beiträge
 
#2

AW: externes Programm startet in nicht sichtbarem Monitor

  Alt 8. Feb 2024, 19:38
Ich habe für sowas das hier
Delphi-Quellcode:
procedure CheckFormPosition(const CustomForm: TCustomForm);
begin
 if (Screen.MonitorFromWindow(CustomForm.Handle, mdNull) = nil) and (Screen.MonitorCount > 0) then
  begin
   CustomForm.Top := (Screen.Monitors[0].Height - CustomForm.Height) div 2;
   CustomForm.Left := (Screen.Monitors[0].Width - CustomForm.Width) div 2;
  end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
42.832 Beiträge
 
Delphi 12 Athens
 
#3

AW: externes Programm startet in nicht sichtbarem Monitor

  Alt 8. Feb 2024, 20:00
Es gibt millionen Lösungen,

aber im Allgemeinen ist es besser das WorkareaRect anstatt dem BoundsRect (Top/Left/Width/Height) zu verwenden.



Delphi-Quellcode:
if not Assigned(Monitor) or Monitor.WorkareaRect.Contains(BoundsRect) then begin
  Self.Left := M.WorkareaRect.Left;
  Self.Top := M.WorkareaRect.Top;
end;
Delphi-Quellcode:
var M := Self.Monitor;
if not Assigned(M) then
  M := Screen.Monitors[0];
if not M.WorkareaRect.Contains(Self.BoundsRect) then begin // or WorkareaRect.IntersectsWith
  if Self.Left < M.WorkareaRect.Left then Self.Left := M.WorkareaRect.Left else Self.Left := M.WorkareaRect.Right - Self.Width;
  if Self.Top < M.WorkareaRect.Top then Self.Top := M.WorkareaRect.Top else Self.Top := M.WorkareaRect.Bottom - Self.Height;
  if Self.Width > M.WorkareaRect.Width then Self.Width := M.WorkareaRect.Width;
  if Self.Height > M.WorkareaRect.Height then Self.Height := M.WorkareaRect.Height;
end;
....
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 8. Feb 2024 um 20:04 Uhr)
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.616 Beiträge
 
Delphi 12 Athens
 
#4

AW: externes Programm startet in nicht sichtbarem Monitor

  Alt 9. Feb 2024, 23:00
Danke für eure Hinweise.
Werde am Wochenende mal probieren.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
42.832 Beiträge
 
Delphi 12 Athens
 
#5

AW: externes Programm startet in nicht sichtbarem Monitor

  Alt 10. Feb 2024, 11:40
ups, ein or not *.Contains meinte ich natürlich, nicht nur or *.Contains
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz