Form immer sichtbar/ Win+R abfangen

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

Guten Tag, ich wollte mal ne schöne Uhr auf mein Desktop setzen

alles sieht wunderbar aus, jedoch kenn ich nur 2 Möglichkeiten die Uhr nicht mimierbar zu machen...
Sie soll nicht minimiert werden wenn ich auf "Desktop anzeigen" klicke..
FsStayonTop soll vermieden werden, da sie nur auf dem Desktop sein soll (wie ein sich änderner Bildschirmhintergrund mit einer Uhr (die stimmt))
BorderStyle auf bsSizeToolWin da habe ich leider den Rand (Border)

Gibt es noch eine andere Möglichkeit? (ohne unbedingt auf Windows_messages zu reagieren)

Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mo 15.04.2013 um 16:29

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: Sa 13.04.13 20:27

Soweit ich es getestet habe, reagiert das Ereignis OnMinimize nicht auf das Windowsereignis "Desktop anzeigen". Daher ist es nicht möglich, dies durch das Ereignis OnMinimize zu realisieren. Wahrscheinlich kommt man um eine Message-Behandlungsroutine (Application.OnMessage) nicht drum rum. Aber leider habe ich da wenig Erfahrungen.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

ok dann von mir aus mit Messages.. aber so, dass es Nicht über anderen Anwendungen/fenstern liegt..

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: Sa 13.04.13 20:44

Aber ich habe eines getestet, und das scheint zu funktioneren.

Du benötigst doch für die Uhr einen Timer. In der Timer-Routine schreibst Du den Befehl:

markieren

Delphi-Quelltext

1:	Application.Restore;

Dann wird wenigstens bei jedem Timer-Aufruf (nach x ms gemäß Timer.Interval) die Uhr wieder angezeigt. Das habe ich getestet und es funktioniert.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

Also mit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

if (WindowState=wsMinimized) then
  begin
  sleep(10);
  WindowState := wsNormal;
  end;

funktioniert es immer BIS auf wenn ich "Desktop anzeigen" geklickt habe (Win+M funktioniert es, Win+D funktioniert es nicht)

markieren

Delphi-Quelltext

1:	Application.Restore;

wenn ich nun irgendein Fenster in den Vordergrund rufe, (nach Win+D/Desktop anzeige) ist die Uhr auf dem Desktop wieder sichtbar.
wenn ich kein Fenster öffne, bleibt die Uhr unsichtbar

Edit: Application.Restore ändert gar nichts, wenn ich den erstgeschriebenen Quelltext verwende..

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: Sa 13.04.13 21:33

Also, bei mir funktioniert das auch bei keinem offenen Fenster:

Die Timerroutine sieht bei mir so aus:

markieren

Delphi-Quelltext

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

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  lbl1.Caption := FormatDateTime('hh:nn:ss',Now);
  Tmr1.Enabled := FALSE;
  Tmr1.Enabled := TRUE;
  Application.Restore;
end;

Ich habe der Einfachkeit halber die Zeitausgabe auf einen Label gesetzt. Der Timer wird auch aufgerufen, wenn das Fenster minimiert ist.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

ich habe herausgefunden, da ich mein Programm mit:

markieren

Delphi-Quelltext

1:
2:

hwndOwner := GetWindow(Handle, GW_OWNER);   
ShowWindowAsync(hwndOwner, SW_HIDE);

in der Taskleiste verstecke, funktioniert Application.Restore; nicht!
wenn ich mein Programm in der Taskleiste anzeige, so funktioniert es mit Application.Restore;

gibt es eine Möglichkeit, die beides beinhaltet?

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: Sa 13.04.13 22:23

Das gilt bei mir genauso. Sobald das Programm nicht mehr in der Taskleiste auftaucht, ist die Möglichkeit, es dauerhaft anzuzeigen, nicht mehr gegeben. Möglicherweise liegt das an der unterschiedlichen Behandlung des Programms durch Windows, vielleicht wird der Timer abgeschaltet.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

Tranx hat folgendes geschrieben :

vielleicht wird der Timer abgeschaltet.

Nein! Denn die Uhrzeit ist ja weiterhin "upToDate" oder besser uptoTime

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: Sa 13.04.13 22:47

Ich habe es mal getestet.

Wenn ich eine OnHide-Prozedur wie folgt schreibe, dann funktioniert es auch mit dem Darstellen, wenn Du das Symbol in der Taskleiste deaktivierst:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormHide(Sender: TObject);
begin
  tmr1.Enabled := TRUE; // Timer aktivieren
end;

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

bei mir klappt es leider nicht...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.FormCreate(Sender: TObject);
var hwndOwner: HWnd;
begin
Autosize := True;
Left := 650;
Top := 250;
Label1.Caption := TimetoStr(Now);
hwndOwner := GetWindow(Handle, GW_OWNER);   
ShowWindowAsync(hwndOwner, SW_Hide);    
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetASyncKeyState( Ord('C'))<0 then application.terminate;

Label1.Caption := TimetoStr(Now)+' ';   // Uhrzeit anzeigen
Application.Restore;

if (WindowState=wsMinimized) then
  begin
  sleep(10);
  WindowState := wsNormal;
  end;
end;

procedure TForm1.FormHide(Sender: TObject);
begin
Timer1.Enabled := True;
end;

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: So 14.04.13 17:24

Mein Test ergab, es geht nicht, wenn meine Timer-Prozedur wie folgt aussieht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  if GetASyncKeyState( Ord('C'))<0 then application.terminate;
  lbl1.Caption := FormatDateTime('hh:nn:ss',Now);
  Tmr1.Enabled := FALSE;
  Tmr1.Enabled := true;
  //Application.BringToFront;
  Application.Restore;

allerdings funktioniert es mit nicht ausgeblendetem Application.BringToFront. Die Uhr wird selbst dann NICHT ganz nach vorne gebracht, aber ohne das Bringtofront geht es nicht.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  if GetASyncKeyState( Ord('C'))<0 then application.terminate;
  lbl1.Caption := FormatDateTime('hh:nn:ss',Now);
  Tmr1.Enabled := FALSE;
  Tmr1.Enabled := true;
  Application.BringToFront;
  Application.Restore;

P.S.: Die Abfrage nach Windowstate = wsMinimized brauche ich nicht.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

bei mir klappt es immer noch nicht (win+M klappt, aber Win+D nicht)
dein

markieren

Delphi-Quelltext

1:
2:

Tmr1.Enabled := FALSE;  
Tmr1.Enabled := true;

lasse ich draußen..
aber meine TimerProcedure sieht dann so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:

if GetASyncKeyState( Ord('C'))<0 then application.terminate;   
Label1.Caption := TimetoStr(Now)+' ';   // Uhrzeit anzeigen
Application.BringToFront;
Application.Restore;

zusätzlich habe ich noch

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormHide(Sender: TObject);
begin
Timer1.Enabled := True;
end;

dennoch klappt Nur Win+M nicht aber Win+D .. hast du deins auch mit Win+D ("Desktop anzeigen") ausprobiert?

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Tranx · Verfasst: Mo 15.04.13 04:35

Also bei mir funktionieete es bei beiden, jedoch habe ich heute komischerweise gegenüber Gestern (Neustart?) den Effekt, dass nun das Programm nun wirklich im Vordergund ist und damit alle Kontrolle hat. Das ist sehr störend. Daher kann ich jetzt wenig weiter helfen.

Vielleicht weiß ja jemand Bescheid, der sich mit den Abläufen bei den Windows-Befehlen besser auskennt.

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

Mhh dein Code fängt nur Win+M ab / setztz sich danach wieder richtig

Bei Win+R und über Taskmanager minimieren wird sie nicht wieder Sichtbar..
falls es durch den taskmanager minimiert wurde, kann ich es mit WindowState := wsNormal; wiederholen

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

Sinspin · Verfasst: Di 16.04.13 14:57

Ich verwende fsStayOnTop und verstecken des TaskButtons und bin damit sehr zufrieden. Es geht so wie ich es haben will. Bei Vollbildanwendungen ist das Programmfenster schön unsichtbar. Und ich habe keine Probleme mit dem Focus in anderen Anwendungen. Mit aktivem Alphablending könnte ich sogar noch lesen was drunter steht, aber das nimmt irgendwie ganz schön viel CPU.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

naja StayonTop will ich vermeiden, da ich es ja nur auf dem Desktop sehen will.. es soll sozusagen IMMER das unterste der sichtbarem Fenster sein, gibt es kein anderes sichtbares fenster, ich es halt vorne^^.

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

IhopeonlyReader hat folgendes geschrieben :

naja StayonTop will ich vermeiden, da ich es ja nur auf dem Desktop sehen will.. es soll sozusagen IMMER das unterste der sichtbarem Fenster sein, gibt es kein anderes sichtbares fenster, ich es halt vorne^^.

Edit: Aber es wäre doch möglich, wenn KEIN fenster den Focus hat, fsstayontop "anzumachen"... dann wäre es sofort sichtbar oder? und wenn ein anderes fenster sichtbar wird, das fsstayontop wieder rausnehmen.. sichtbar ist es dann ja eigentlich noch, aber wird von dem anderen fenster überdeckt.. richtig?

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

- push-

Kann man eine Anwendung als "Gadget" behandeln?

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

IhopeonlyReader · Beiträge: 600 Erhaltene Danke: 23 Delphi 7 PE

- push -

_________________
Sucht "neueres" Delphi

Wer nicht brauch was er hat, brauch auch nicht was er nicht hat!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme