zunächst fehlt hinter
TfmSvcProperties = class(TTotalCmdWfxForm)ein Semikolon.
Unit "TotalCmdGUI" :
{$Include Compiler.inc} habe ich keine ...
procedure PluginShowForm :
Delphi-Quellcode:
procedure PluginShowForm(const AhParent: HWND);
var fmSvcProperties: TfmSvcProperties;
Lmon: TFormMonitor;
begin
fmSvcProperties:= TfmSvcProperties.Create(nil, AhParent);
try
case IniFile.Monitor of
// -> Undefinierter Bezeichner: 'IniFile'
// -> ',' oder ':' erwartet, aber 'OF' gefunden
0..4: Lmon:= TFormMonitor(IniFile.Monitor); // -> ')' erwartet, aber Bezeichner 'Monitor' gefunden
else Lmon:= fmActive;
end; // EXCEPT oder FINALLY erwartet
fmSvcProperties.ShowModal(Lmon);
finally // 'END' erwartet, aber 'FINALLY' gefunden
FreeAndNil(fmSvcProperties);
end; // '.' erwartet, aber ';' gefunden
end;
Aber mal noch was anderes:
Betrifft die Sache auch das Starten von Progs vom TC aus oder ist das nur speziell für TC-Plugins ?
Gehst Du in der
Unit "TotalCmdGUI" von 4 Monitoren aus ? Soviel ich weiß, sind bis zu 9 möglich.
Die vorhandene Menge findet man über "Screen.MonitorCount"
Vor weit mehr als 10 Jahren hatte ich sogar mal was mit Delphi 1 gemacht, das immerhin schon 2 Monitore verwalten konnte. Dazu hatte ich wesentliche Teile der
Unit "Multimon" in eine eigene
Unit "MMM" gepackt. Der eigentliche Anlaß dazu war aber dies:
Die ab Delphi 4 standardmäßig vorhandene Multimonitor-Erkennung
wird nur beim Programmstart vorgenommen und verläßt sich später
fälschlich auf gültige "Handles", die nicht mehr stimmen, wenn
die Zahl der aktivierten Monitore während des Programm-Ablaufs
geändert wird. Werden Monitore abgeschaltet, so ist das weniger
dramatisch. Neu hinzukommende werden allerdings nicht erkannt !
Ich habe mal meine damalige
Unit und ein einfachen Testprogramm kurz getestet, neu gespeichert und hier (nur Sourcen, keine EXE) angehängt. Vielleicht ist manches davon brauchbar, zumal es auch teilweise ab Delphi 1 funktioniert. Das Problem, auf welchem Monitor gestartet wird, hatte ich aber damit NICHT gelöst.
Könntest Du bitte mal ein KOMPLETTES und FUNKTIONIERENDES Beispiel Deiner Lösung bringen ?