Dazu braucht man in der entsprechenden Form nur den folgenden Code einfügen:

type
  TfrmExtra = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  protected
    procedure CreateParams(var Params : TCreateParams); override;
  end;

implementation

procedure TfrmExtra.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := 0;
end;

CreateParms wird bei der Erzeugung des Fensters aufgerufen. Dabei wird dem Fensterstyle der Parameter WS_EX_APPWINDOW hinzugefügt. Dieser Parameter erzeugt den Taskbareintrag für das entsprechende Fenster, sobald es sichtbar ist.

Nur diesen Parameter hinzufügen reicht in den meisten Fällen noch nicht, da dann zum Beispiel das Umschalten zwischen Haupt- und Sekundärfenster nicht wie gewohnt funktioniert. Die zweite Einschränkung fällt beim minimieren des Hauptfensters auf – das sekundäre Fenster wird einfach mit minimiert und zusätzlich dazu der Taskbareintrag entfernt. Das Problem entsteht, da das Fensterparent des zweiten Fensters immer noch das Hauptfenster ist.

Diese Problem löst man indem man das Parent der sekundären Form null zuweist. Im oben gezeigten Code wird dies durch die Zeile Params.WndParent := 0 erreicht.

Jetzt funktioniert erst mal alles so, wie erwartet. Jedenfalls so lange man nicht ins Detail geht. Da gibt’s dann noch ein paar Stolpersteine

Das Problem mit den Standarddialogen

Ruft man einen Standarddialog, wie zum Beispiel Datei öffnen, aus der sekundären Form auf, dann wird jedes Mal die Hauptform in den Vordergrund geholt. Nicht kritisch aber unschön, aber dafür leicht zu lösen. Einfach den Aufruf des Standarddialog wie folgt ändern:

OpenDialog1.Execute(0);

Dadurch wird das Parent des Dialogs auf null geändert. Ohne die Null in den Klammern ist das Parent immer noch die Mainform und dadurch wurde dieses in den Vordergrund holen des Mainforms hervorgerufen.

Das Problem mit den Hints

Controls platziert auf der sekundären Form mit aktivierten Hints, holen spätestens beim zweiten Aufpoppen des Hints wieder einmal die Mainform in den Vordergrund. Auch hier greift wieder das Problem mit dem Parent auf die Mainform. Um das Problem mit den Hints zu lösen muss man eine Klasse von THintWindow ableiten und den Parent wieder auf Null setzen. Ich habe dies im Projektquelltext umgesetzt. Das Resultat ist in den folgenden Zeilen zu sehen:

program Project1;

uses
  Forms,
  Controls,
  Unit1 in 'Unit1.pas' {frmMain},
  Unit2 in 'Unit2.pas' {frmExtra};

{$R *.res}

type
  TFixedHintWindow = class(THintWindow)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TFixedHintWindow.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

begin
  Application.Initialize;
  HintWindowClass := TFixedHintWindow;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

Bei mir läuft jetzt erst mal alles ohne Probleme.

Ach so, bevor ich es vergesse. Unter Delphi 2007 gibt es die neue Eigenschaft MainFormOnTaskBar unter TApplication. Eine gute Erklärung dazu ist hier zu finden.

Mit einer Aktivierung von MainFormOnTaskBar wird das neue Fenstermanagement in Delphi 2007 Anwendungen aktiviert und man kann sich die Zeile Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; sparen, da jedes Fenster der Anwendung mit einem auf Null gesetzten Parent eh schon extra in der Taskbar angezeigt wird.

Keine verwandten Einträge.

Der zweite Bug war da schon ein wenig kniffliger. Jedenfalls um ihm überhaupt erst einmal auf die Spur zu kommen. Tom und Björn hatten beide den Bug, dass beim Abspeichern des zweiten Tiles/Bildes, Terragen immer den ersten Dateinamen des ersten Tiles verwenden wollte. Das komische daran war, dass ich den Fehler bei mir nicht reproduzieren konnte. Laut Log wurde auch der neue Dateinamen in das Eingabefeld in Terragen übertragen. Irgendwie schien die History des Eingabefeldes sich quer zu stellen. Aber das war alles nur ein Raten ins Blaue hinein bis ich spaßeshalber bei mir mal die Option “Dateieindungen bekannter Dateitypen anzeigen” im Windows Explorer deaktivierte. Siehe da, ich hatte den Fehler nun auch. Es war tatsächlich so, dass nun beim Speichern des zweiten Bildes der Dateiname des ersten im Eingabefeld erschien. Ein bloßes Überschreiben mit WM_SETTEXT reichte nicht aus, um dem “Standard – Vista – Speichern- Dialog” zu verklickern, dass ich gern einen anderen Namen verwenden möchte.

Des Rätsels Lösung war einfach vor dem ändern des Dateinamens ein Tastendruck der Löschen Taste im Eingabefeld des Speichern Dialoges mit WM_KEYDOWN und VK_DELETE zu simulieren.

Aber warum überhaupt ein Unterschied zwischen “Dateieindungen bekannter Dateitypen anzeigen” aktiviert und deaktiviert bei der History des Eingabefeldes gemacht wird, ist mir noch schleierhaft.

So genug gelabbert … hier gibt’s die neue Version 1.2.4.10 von TerragenForCondor.

Keine verwandten Einträge.

Folgender C# Code sucht einen bestimmten laufenden Service/Dienst auf dem angegebenen Computer. Der Beispielcode sucht den Dienst RServer3 (Radmin) und stoppt ihn dann.

        static ServiceController FindService(string computerName, string serviceName)
        {
            ServiceController[] scServices;
            scServices = ServiceController.GetServices(computerName);
            ServiceController returnService = null;
            foreach (ServiceController scDummy in scServices)
            {
                if (scDummy.Status == ServiceControllerStatus.Running)
                {
                    if (scDummy.ServiceName.ToLower() == serviceName.ToLower())
                    {
                        returnService = scDummy;
                        break;
                    }
                }
            }
            return returnService;
        }

       //Beispielaufruf
       ServiceController scSample = FindService(computerName, "RServer3");
       if (scSample != null)
       {
            scSample.Stop();
            scSample.WaitForStatus(ServiceControllerStatus.Stopped);
       }

Keine verwandten Einträge.