Programm als DesktopHintergrund @ Windows

[supermuckl]

geht es das ich ein programm als Hintergrund nehme ? also nicht als bild oder als webseite sondern als richtiges proggi mit oberfläche..

mit tricks wärs vielleicht möglich ein vollbild prog als most bottom level unter all die anderen fenster zu knallen.. aber wenn man draufklickt sollte es dann auch nicht in den vordergrund kommen *g* also sowas wie OnTop blos umgedreht ( OnBottom )

[MrKnogge]

Mit der Enterprise-Version ist es doch möglich Web-Andwendungen zu programmieren, die könntest du dann eventuell über den ActiveX-Bldschirm laufen lassen.

[supermuckl]

ich sag ja.. nicht als webseite

[neolithos]

Man kann auch den Parent deines Hauptfenster's auf den des Desktop's setzen.

[supermuckl]

das parent der elemente die auf dem form sind oder dem form sein parent ? ( is doch schon der desktop oder? ^^ )

jedenfalls.. müsste ich ja erstmal das handle des hintergrunds rausbekommen und das dann irgendwie meinem proggi zuweisen?

wüsste ich jetzt beides nich wie das geht O_O

ok.. form1.parent := desktophandle; so ?

[NicoDE]

Zitat von supermuckl:

aber wenn man draufklickt sollte es dann auch nicht in den vordergrund kommen *g* also sowas wie OnTop blos umgedreht ( OnBottom )

Überschreibe die CreateParams der Form und setze nach dem Aufruf der geerbten Funktion den Parent auf GetDesktopHandle() und das Child-Flag.

[supermuckl]

öhm das is mir ein bisschen hoch.. mit überschreiben von funktionen hab ich noch nix gemacht

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.CreateParented(GetDesktopWindow);
end;

das sagt mir übrigends:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse EComponentError aufgetreten. Meldung: 'Komponente mit der Bezeichnung Button1 existiert bereits'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

naja ^^ mal gucken wie das mit dem überschreiben tut

[supermuckl]

* null peilung *

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure CreateParams(Params: Tcreateparams);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.CreateParams(Params: Tcreateparams);
begin
inherited create(nil);
form1.Parent := GetDesktopHandle; // will er nich - undefinierter bezeichner GetDesktopHandle
end;

end.

[NicoDE]

Zitat von supermuckl:

mal gucken wie das mit dem überschreiben tut

Erst Suchen, Dann Fragen
(such nach Beiträgen die 'CreateParams' enthalten und von 'NicoDE' geschrieben wurden)

[Nicodius]

getdesktophandle gibt es echt nicht (in welcher unit?)