TAppletApplication

[tobster]

Wie man einen Dienst schreibt hab ich jetzt, deswegen sind gleich mal die Control Panel Applets dran. Dafür hat der Assistent ja auch ein fertiges Skelett.

Wenn ich dem ganzen nun aber ein Formular hinzufügen will (ganz normal über die entsprechende Schaltfläche) und es starte, gibt mir das System in einer unmissverständlichen Exception zu verstehen, das das Formular so nicht anzuwenden geht.

Also: Wie proggt man eine TAppletApplication, die auch eine Form anzeigt?

[tobster]

Hab' auch das Problem selbst gelöst: Bin mir zwar nicht sicher, ob das so in Ordnung ist, oder einfach nur mehr als schmutzig, aber es geht:

Delphi-Quellcode:

procedure TAppletModule1.AppletModuleActivate(Sender: TObject;
  Data: Integer);
begin
 Forms.Application.Initialize;
 Forms.Application.CreateForm(TAppletForm, AppletForm);
 Forms.Application.Run;
end;

Man muss nur darauf achten, die betreffende Form aus dem Projekt zu entfernen (über das Menü, oder per Hand in der *.DPR), so das sie nicht in der *.DPR für die eigentliche Application erstellt wird.