Programm immer auf dem Desktop anzeigen

Nova · Beiträge: 24

Hi zusammen,

ich schreibe mir selbst gerade ein kleines Programm womit ich hoffentlich meinen Kopf zusammenhalten kann
bedeutet, Termine eintragen, ToDo Listen, Telefonlisten und was nicht alles

Jetzt würde ich gerne ein kleines 200x200 Pixel großes Fenster auf meinem Desktop platzieren, welches die wichtigsten Sachen auf einen Blick anzeigt. Das Problem ist jetzt nur, wie kann ich es schaffen, dass dieses Fenster immer auf dem Desktop angezeigt wird, also so als ob es auf den Hintergrund gemalt ist... Wenn ich zB "Dekstop anzeigen" drücke, verschwindet mein Tool natürlich mit allen anderen. Das würde ich aber gerne verhindern.

Danke schonmal
Olli

Logikmensch · Beiträge: 390 Win XP Delphi 2007 Prof., XE2, XE5

Du könntest ja auch statt auf eine 200x200 Bitmap direkt auf Deine Hintergrundgrafik zeichnen, die Du dann natürlich für Dein Desktop einstellen müsstest. Wie man "Desktop anzeigen" so umgeht, dass auch dann Dein Progrämmchen sichtbar bleibt, weiß ich leider auch nicht.
Ich habe das bei mir so gelöst, dass ich mir eine Verknüpfung auf meine Hintergrundgrafik ebenfalls mit aufs Desktop gelegt habe und wenn ich was ändern will, geht MS-Paint automatisch auf und dann male /schreibe ich meine Notizen dann einfach darauf.

_________________
Es gibt keine Probleme - nur Lösungen!

Nova · Beiträge: 24

Naja aber die Methode wäre ja nur bedingt interaktiv,
also mann könnte dann gar keine Textfelder/Buttons etc darauf packen.

DrRzf · Beiträge: 260 Win XP Prof D7 Enterprise

versuchs mal mit
Formstyle := fsStayOnTop;

_________________
rein statistisch gesehen darf man keiner statistik trauen die man nicht selbst gefälscht hat.

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

DrRzf hat folgendes geschrieben:

versuchs mal mit
Formstyle := fsStayOnTop;

nein, das bringt leider gar nichts - lies dir die Hilfe dazu durch - diese Eigenschaft ist für etwas anderes da (Programmintern).

jakobwenzel · Verfasst: So 11.02.07 12:27

Die Lösung:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  wnd: HWND;
begin
  timer1.Enabled:=false;
  wnd :=  FindWindow('Progman', 'Program Manager');
  wnd :=  FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);
  wnd :=  FindWindowEx(wnd, 0, 'SysListView32', 'FolderView');

  if wnd <> 0 then
  begin
    parentwindow:=wnd;
  end;
  ShowWindow(Application.Handle,SW_HIDE);
end;

Dadurch wird das Fenster zum Unterfenster des Desktops (hört sich komisch an, is aber so), unbd der wird ja beim Desktop anzeigen noch angezeigt.
BorderStyle=bsNone ging zumindest bei mir danach aber nicht mehr.
Und die Position des Formulars bezieht sich danach auf den Monitor ganz oben links und nicht mehr auf den ersten.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Nova · Beiträge: 24

Das funktioniert! Super danke!!!
Ich werde erstmal ein wenig mein Programm weiter schreiben und dann rausfinden, was genau mit deinem Code funktioniert.

Edit: bsNone funktioniert bei mir komischerweise trotzdem. Nichts worüber ich mich beschweren würde *g*
Nur komisch, dass es bei dir nicht klappt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme