MonitorCount im Betrieb aktualisieren?

[s.h.a.r.k]

Jup. Der Wert wird somit nur einmal via Windows-API-Call ausgelesen und intern gespeichert. Das Problem dabei ist, dass wenn während der Laufzeit des Programms sich die Anzahl der Monitore ändert, der Wert falsch ist und falsch bleibt.

Hab hier totalen Käse geschrieben. Die Zeile mit der Windows-API-Aufruf ist nur eine Fallback-Methode, wenn beim Konstrutor von TScreen das hier wohl nicht geklappt hat:

Delphi-Quellcode:

{$IF DEFINED(CLR)}
  EnumDisplayMonitors(0, nil, TMonitorEnumerator.Create(FMonitors).FEnumProc, 0);
{$ELSE}
  EnumDisplayMonitors(0, nil, @EnumMonitorsProc, LongInt(FMonitors));
{$IFEND}

FMonitors ist vom Typ TList und beinhaltet TMonitor-Instanzen. TMonitorEnumerator ist eine "Hilfs"-Klasse mit einer Callback-Methode, die von der Windows-API aufgerufen wird, eine TMonitor-Instanz erzeugt und diese in FMonitors wirft.

[Memnarch]

@Shark:Okay, das heißt aber, das die variable erst gegetted wird, und dan manuel gespeichert wird(z.B im Create()). Automatisch wird da zumindest nichts gespeichert.

MFG
Memnarch

[s.h.a.r.k]

Nochmal mein Edit oben lesen! Oder einfach das von shmia lesen. Mein VCL-Source ist nur etwas neuer als der von shmia

[Rabe]

Mit den Anregungen hier bin ich mal auf Endeckungsreise gegangen und habe an unterschiedlichen Stellen ind forms.pas den Aufruf von "Screen.GetMonitors" entdeckt.

Code:

procedure TScreen.GetMonitors;
begin
  ClearMonitors;
{$IF DEFINED(CLR)}
                                         
  EnumDisplayMonitors(0, nil, TMonitorEnumerator.Create(Screen.FMonitors).FEnumProc, 0);
{$ELSE}
  EnumDisplayMonitors(0, nil, @EnumMonitorsProc, LongInt(Screen.FMonitors));
{$IFEND}
end;

Ich würde das für eine Art "Refresh" halten. Aber - die Methode ist private.

Jetzt wollte ich TScreen in forms.pas um eine öffentliche Methode ergänzen, die GetMonitors aufruft. Es ist mir fast perinlich aber ich bekomme forms.pas nicht übersetzt.

Kann mir mal kurz einer nen Schubs geben? Müsste forms.pas als Bestandteil des Projektes nach Veränderung nicht automatisch übersetzt werden??? In jedem Fall ist forms.pas in dem im Optionen.Suchpfad eingetragegen Verzeichnis $(BDS)\SOURCE\WIN32\VCL vorhanden und lesbar.

Gruß
RaBe


Ups: Posts auf 2. Seite nicht gesehen - pfui über mich.

[himitsu]

Die VCL Resourcen ändert man halt nicht.

Delphi nutzt nie die PAS, sondern die entsprechenden vorkompilierten DCUs oder die Units, welche in den BPLs liegen, wenn man Runtimepackages nutzt.

Wenn doch, dann muß man diese DCUs manuell kompilieren und die abhängigen BPLs neu erzeugen.



Screen.FindMonitor(0); führt einen Refresh durch ... man mag es kaum glauben.

[Rabe]

Zitat von himitsu:

Die VCL Resourcen ändert man halt nicht.

und man geht auch nicht bei rot über die Ampel

Zitat von himitsu:

Screen.FindMonitor(0); führt einen Refresh durch ... man mag es kaum glauben.

ruft ja auch Screen.GetMonitors auf. Aber beide Methoden sind private deklariert.

Kann mich mal einer aufklären, wie ich da ran komme OHNE die VCL zu ändern?

Anscheinend sehe ich gerade den Wald vor Bäumen nicht...

[himitsu]

Ups, dann hatte ich mich vorhin verguckt.

OK, dann versuchen wir's einfach mal so Screen.MonitorFromWindow(INVALID_HANDLE_VALUE, mdNull); ?

[Rabe]

Zitat von himitsu:

OK, dann versuchen wir's einfach mal so Screen.MonitorFromWindow(INVALID_HANDLE_VALUE, mdNull);

Ausgezeichnet - könnte besser nicht sein!

Im FormShow aufgerufen und danach wieder Mointorkonfiguration auswerten - schon wird das Formular für dem Beamer passgenau angezeigt, auch wenn der Beamer während der laufenden Anwendung an- oder abgestöpselt wird.

Viel Dank an Alle...

Gruß
RaBe

[HeikoAdams]

ohne es getestet zu haben, dürfte die sauberste Methode sein, eine neue Klasse von TScreen abzuleiten und diese neue Klasse um eine Refresh-Methode zu erweitern.