MonitorCount im Betrieb aktualisieren?

[Memnarch]

Also wird die Variable, die der Getter zurückgibt, automatisch in dem ihm zugehörigen Feld gespeichert?

[DeddyH]

Ich habe leider gerade kein Delphi zur Hand, weiß daher nicht, wie, wann und wie oft FMonitors befüllt bzw. refreshed wird. Laut Beschreibung im Ausgangspost scheint es aber so zu sein, dass das nur einmal geschieht.

[Memnarch]

Die frage ist nicht wie OFT, sondern WO. Der getter gibt in meinen augen nur die Anfrage zurück, schreibt das Ergebnis aber fürs nächste mal(zweite if anweisung wäre dass) nicht in die Feldvariable. Die Feldvariable selbst müsste also 0 bleiben(wird dann auch nie zurückgegeben) Muss ich mal eben testen wie sich das verhält o.O.


MFG
Memnarch

[shmia]

In der Klasse TCustomForm habe ich etwas Code aufgespürt, wie die VCL auf Veränderungen der Monitore reagiert:

Delphi-Quellcode:

for i := 0 to Screen.MonitorCount-1 do
    TMonitor(Screen.FMonitors[i]).Free;
Screen.FMonitors.Clear;
// EnumDisplayMonitors ist ein Funktionszeiger in Unit MultiMon 
EnumDisplayMonitors(0, nil, @EnumMonitorsProc, LongInt(Screen.FMonitors));

Das ist natürlich sehr unfein, was da in function TCustomForm.GetMonitor gemacht wird.
Borland hätte der TScreen-Klasse eine "RefreshMonitors"-Methode spendieren sollen.

PS: Ahhh..es fehlt natürlich auch noch lokaler Code aus Unit Forms:

Delphi-Quellcode:

function EnumMonitorsProc(hm: HMONITOR; dc: HDC; r: PRect; Data: Pointer): Boolean; stdcall;
var
  L: TList;
  M: TMonitor;
begin
  L := TList(Data);
  M := TMonitor.Create;
  M.FHandle := hm;
  M.FMonitorNum := L.Count;
  L.Add(M);
  Result := True;
end;

[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...