[nonVCL] Problem mit Fenster

[Nils_13]

Zitat:

Zitat von DGL-luke

also ich weeß ja nit, meine augen sind auch nicht die besten, aber ich seh da beim besten willen nirgends einen kommentar im quelltext?! :shock:

Ich auch nicht und vorhin stand auch überhaupt keins da.

[Neutral General]

Er soll seine Frage nochmal konkret hinschreiben.. Aber die Kommentare standen am Anfang wirklich im Quelltext.. hat er aber anscheinend irgendwie wegeditiert oder so... :gruebel:

[xZise]

1. Frage siehe 1. Post

Zitat:

Zitat von xZise

Also es erscheinen keine Komponenten...

2. Frage siehe 8. Post

Zitat:

Zitat von xZise

Ich hatte woanders den Quelltext her, weil es der gleiche ist.

3. Ja habe ich wegeditiert, weil die nichts mit der Frage zu tun hatten
4. Wäre es vielleicht möglich auf die von mir gestellte Frage zu antworten, statt darüber zu rätseln, wass da stand und was da nicht stand.

(Code)

[Luckie]

Befindet sich in der Ressource ein Manifest oder liegt im Anwendungsverzeichnis ein Manifest? Falls ja, dann musst du InitCommonControls aus der Unit CommCtrl aufrufen. Was anderes fällt mir nicht ein. Aber genau dein Fall hatte ich jetzt auch schon mal und das war die Lösung.

[xZise]

Zitat aus dem 1.Posting:

Zitat:

Zitat von xZise

Delphi-Quellcode:

uses
  Windows, Messages, CommCtrl;
 {...}
    InitCommonControlsEx(icc);

Und das Manifest gibt es extra, allerdings ist es so, dass ich nicht weiß, ob ich das richtig gemacht habe :P Aber ich habe es angenommen, da es an meheren PCs funktioniert (Klassisch/XP-Style).

[Luckie]

Nicht ..Ex., sondern nur InitCommonControls. Anonsten häng mal das komplette Programm an, so wie es bei dir nicht läuft.

[MathiasSimmack]

Normalerweise spricht auch nichts gegen "InitCommonControlsEx", wenn da nicht dieser Bug von Borland wäre ... immer noch ... :roll: Mal schauen, wie viele Jahre ich dieses Thema weiterhin anschneiden kann. :stupid:

[Luckie]

Deswegen, sicher ist sicher. Komm auf die nächsten Delphi-Tage und du kannst dir direkt einen von Borland zur Brust nehmen. ;)

[Luckie]

Was war noch mal der Bug? Ich versuche gerade dein SysLink zum Laufen zu bringen, aber ich bekomme nur ein leeres Fenster. GetlastError sagt nach dem Aufruf von:

Delphi-Quellcode:

    if(CoInitializeEx(nil, COINIT_APARTMENTTHREADED) = S_OK) then
    try
      // für SysLink-Control
      InitCommonControlsEx(icc);
      Writeln(GetLastError);

Zitat:

Das angegebene Modul wurde nicht gefunden.

:gruebel:

[MathiasSimmack]

Work-around: "InitCommonControls" vorher aufrufen.
Fix: Unit patchen (so wie in den Tutorials gezeigt)