zunächst fehlt hinter
TfmSvcProperties = class(TTotalCmdWfxForm)ein Semikolon.
Nicht wirklich. Die Zeile darunter ist eine Platzhalterzeile, die noch mehr Sachen innerhalb der Klasse andeutet und durch das nachfolgende
end;
erst abgeschlossen wird.
Zitat:
Unit "TotalCmdGUI" :
{$Include Compiler.inc} habe ich keine ...
Die kannst du dir notfalls selber bauen. Darin sind nur die verschiedenen Compiler-Versionen vermerkt mit entsprechenden
$DEFINE
s, damit der Compiler eine bedingte Kompilierung machen kann.
Zitat:
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;
Alles Folgefehler des einen, kein Grund schockiert zu sein. Ein bisschen mitdenken musst du schon. IniFile.Monitor ist ein simpler Integer, wie man leicht an der Case-Bedingung erkennen kann. Einfach dort deine eigene Variable einfügen. Oder den Integer komplett weglassen und ShowModal direkt mit TFormMonitor.irgendwas als Parameter aufrufen.
Zitat:
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 ?
Mir geht es ausschließlich um TC-Plugins, konkret um Dateisystemplugins. Prinzipiell kann man diese
Unit aber auch für andere, ganz normale Delphi-Programme benutzen, sofern man die Form nur auf einen bestimmten Monitor bringen und dort zentrieren will. In dem Bereich ist der Nutzen aber eh etwas eingeschränkt, weil es ja noch TForm.DefaultMonitor gibt, auch wenn das auch nicht alles kann.
Wobei es bei eigenständigen Programmen eh schwieriger wird, an den Parent zu kommen, denn der existiert ja erstmal nicht. Im momentanen Zustand ist die
Unit für solche Programme nicht wirklich zu gebrauchen, denn dafür müsste man CreateParams entfernen (was den Parent des erzeugten Forms setzt). Naja, dafür müsste man wohl die
Unit noch etwas umbauen
. Da es mir darum aber nicht ging, überlasse ich das anderen, Quellcode ist ja offen
.
Zitat:
Gehst Du in der
Unit "TotalCmdGUI" von 4 Monitoren aus ?
Ja, warum nicht? Reicht das nicht?
Zitat:
Soviel ich weiß, sind bis zu 9 möglich.
Das mag sein, interessiert in der Praxis, in der ich mich bewege, aber nicht. Ich selbst habe nur einen Monitor, in der Firma haben einige Rechner zwei Monitore, mehr existieren in meiner Praxis nicht. Hinzu kommt noch, dass die Definition zwar nur bis zum vierten (expliziten) Monitor erlaubt (nebenbei ja ganz simpel auf mehr Monitore erweiterbar), das Benutzen des aktiven Monitors aber völlig frei ist und auch bei hundert Monitoren funktionieren würde.
Zitat:
Die vorhandene Menge findet man über "Screen.MonitorCount"
Ja, genau das benutze ich doch. Aber was bringt mir das für die Definition eines Enum? OK, man könnte jetzt anbringen, da in der
Unit letztlich Integer benutzt werden und der Beispiel-Code oben in Form von IniFile.Monitor auch nur Integer, könnte man auf den Enum verzichten. Hatte ich überlegt, aber momentan spielt das für mich keine Rolle. Die
Unit tut ihren Dienst und darum ging es letztlich.
Zitat:
Könntest Du bitte mal ein KOMPLETTES und FUNKTIONIERENDES Beispiel Deiner Lösung bringen ?
Ersetze IniFile.Monitor durch einen Integer deiner Wahl, der dem Enum entspricht, binde die angehängte Compiler.inc ein und das müsste genügen.
MfG Dalai