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.