Form an den Desktop binden

Hybrid · Beiträge: 112 Win XP Pro D7 Ent

Hi erstmal..
Ich habe zwar vor ca einem Jahr schonmal sowas gepostet und keine Antwort erhalten,
aber ich will das nach ner Stunde erfolgloser Suche jetzt endlich mal wissen:

Wie bekomme ich ein Forular dazu dass es sich immer unter allen fenstern befindet, d.h. in den Desktop geheftet ist?

Das einige, was auch ne ziemlich blöde Methode ist, dass mit einfällt ist ein Timer mit SendToBack -.-

Bitte um Hilfe..

mfG Hybrid

_________________
Hallo, ich bin eine Signatur!

I.MacLeod · Beiträge: 109

Pack das hier ins OnActivate:

markieren

Delphi-Quelltext

1:
2:

SetWindowLong(handle, GWL_STYLE, GetWindowLong(handle, GWL_STYLE) or WS_CHILD);
SendToBack;

_________________
{$APPTYPE CONSOLE}uses SysUtils;const a='{$APPTYPE CONSOLE}uses SysUtils;const a=%s;begin write(Format(a,[#39+a+#39]))end.';begin write(Format(a,[#39+a+#39]))end.

Hybrid · Beiträge: 112 Win XP Pro D7 Ent

Hä? Wie lustig, wenn ich das benutzte bleibt das Fenster beim ziehen an der Ausgangsposition und bewegt sich erst beim loslassen der Maustaste ^^
Das ist fast so als ob ich "Fensterinhalt beim zeihen anzeigen" aus haben.
Kann man das nicht irgendwie anders machen? (dennoch danke)

_________________
Hallo, ich bin eine Signatur!

I.MacLeod · Beiträge: 109

Hmm... ich war davon ausgegangen dass es für irgendwelche Statistiken (o.ä.) und das Formular daher sowieso Rahmenlos wäre. (Funktioniert sowieso nur mit BorderStyle=bsNone)

Eine andere Möglichkeit ist mir aber leider nicht bekannt :-/

// Edit:

Eventuell nur dann wieder in den Hintergrund verdammen wenn es gerade aktiviert wurde. Könnte nur eklig flackern. (=>ReleaseCapture?)

_________________
{$APPTYPE CONSOLE}uses SysUtils;const a='{$APPTYPE CONSOLE}uses SysUtils;const a=%s;begin write(Format(a,[#39+a+#39]))end.';begin write(Format(a,[#39+a+#39]))end.

Motzi · Verfasst: Mo 07.02.05 21:20

Eine einfache Möglichkeit die mir grad einfallt, ist einfach den Desktop als Parent zu setzen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

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

  Windows.SetParent(Handle, wnd);
end;

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

Hybrid · Beiträge: 112 Win XP Pro D7 Ent

Oh ja jetzt wo du es erwähnst seh ich dass das wirklich nicht für's Verscheiben gedacht ist, da im popupmenü in der Taskleiste kein Verschieben zur auswahl ist.
OK dann mach ich das halt damit. Danke!
Sollte aber dennoch jemanden was anderes einfallen kann er es ja gerne Posten ^^

_________________
Hallo, ich bin eine Signatur!

I.MacLeod · Beiträge: 109

Joa, die Lösung ist besser. Gibts vielleicht auch noch eine wo TransparentColor & Co. funktionieren?

_________________
{$APPTYPE CONSOLE}uses SysUtils;const a='{$APPTYPE CONSOLE}uses SysUtils;const a=%s;begin write(Format(a,[#39+a+#39]))end.';begin write(Format(a,[#39+a+#39]))end.

Hybrid · Beiträge: 112 Win XP Pro D7 Ent

Also das mit dem Parent is perfekt.

PS: Bei mir geht alles mit Transparentcolor und Alphacolor..

_________________
Hallo, ich bin eine Signatur!

Gothicware · Verfasst: Sa 12.02.05 13:21

Also beimir funktioniert nur (W2K Prof):

markieren

Delphi-Quelltext

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

var   
  wnd: HWND;   
begin   
  wnd :=  FindWindow('Progman', 'Program Manager');   
  wnd :=  FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);   
//  wnd :=  FindWindowEx(wnd, 0, 'SysListView32', nil);   

// Wenn ich 'SysListView32' als neues handle definiere, 
// wird meine TForm samt Inhalt, nur im Bereich der Desktop Icons angezeigt.
// (im übrigen sehr lustiger Effekt ;-) )}

  Windows.SetParent(Handle, wnd);   
end;

Was ich noch empfehlen kann, ist ein AktiveX Elemnt zu Programmieren, und das in eine
HTML Datei einbinden, und das Ganze als Desktop Hintergrund verwenden.
Dann ist alles Wirklich ganz unten...im warsten Sinne des Wortes.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme