Box neben der Uhr erzeugen?

[Schucki]

Hallo!

Nun habe ich ein neues Projekt begonnen und bracuhe malEure Hilfe.
Wie erstellen andere PRogramme diese kleine BOX mit einem Hinweis wie "Datei wurde heruntergeladen" im Opera.

Oder anderes Beispiel, der neue WinAmp zeigt auf Wunsch die Titel immer neben der Uhr an. In einem keinem Fenster. Skype macht sowas auch... muß also gehen nur wie :-(

Wie geht das? MEine Versuche ein Form2 mit Form2.Show führen nicht zu dem Erfolg da ein neues Fenster das immer überdecken würde.
Auch die SetWindowsPos Sache klappt nicht, das klappt nur wenn ich es im Hauptformular setze aber ein zusäzliches Fenster ist mir nicht möglich.

Vielen Dank für jeden Tip!

Frank

[Norbert987]

Hallo,

meinst du die Icons im Tray? Dann versuch doch mal CoolTrayIcon. Ist eine Komponente für Delphi, ich nutze sie mit Delphi 7, laut Readme kann man sie allerdings auch bei Delphi <5 installieren. Dort sind auch ein paar nette Demos bei :)

Viel Erfolg, Tobias

[Matze]

Ich denke nicht, dass er das TrayIcon meint, sondern dieses "Popup", was bsp. bei neuen E-Mails von einigen Programmen unten rechts erscheint (Thunderbird, Outlook, ...), von Firefox, wenn ein Download angeschlossen ist o.ä.
Hier in der DP gab's mal eine wunderschöne Demo dazu, aber ich finde sie leider nicht mehr.

Edit: Wenn du die JVCL installiert hast (Jedis), geht das über TJvDesktopAlert.

[Schucki]

@Matze

JA richtig das ist das was ich suche! :-)
Meine Anwendung läuft im Try Bereich minimiert. Das geht super nur will ich die Infos wenn es denn was zuu berichten gibt nicht mit den Ballon Tips machen sonder ein eigenes Fenster erstellen. Also ein eigenese Aussehen.

Danke für jeden weiteren Tip!

Frank

[Micha88]

Könnte das nicht eine nmormale Form sein?

Positionierung: vielleicht:

Delphi-Quellcode:

function TaskBarHeight: Integer;
var
  hTB: HWND; // taskbar handle
  TBRect: TRect; // taskbar rectangle
begin
  hTB:= FindWindow('Shell_TrayWnd', '');
  if hTB = 0 then
    Result := 0
  else begin
    GetWindowRect(hTB, TBRect);
    Result := TBRect.Bottom - TBRect.Top;
  end;
end;

Delphi-Quellcode:

// ins entsprechende Ereignis:
FormX.Left := Screen.Width + FormX.Width;
FormX.Top := Screen.Height - FormX.Height - TaskBarHeight;

[Schucki]

Na das positonieren ist nicht das Problem, klappt schon. ;-)
Nur sobald ein neues Programm aufgemacht wird, ist das sofort aufdränglich und sagt nee nee ich bin hier "OnTop".

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos(Handle, 
               HWND_TOPMOST, 
               Left,  
               Top,   
               Width,
               Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Funktioniert NUR beim Hauptformular, das sieht man aber eigendlich nicht da es verschwunden in der taskleiste ist. Füge ich das beim Form2.OnCreate ein geht's nicht mehr, auch das HAuptformular läst sich "runterdrücken". :-(

Gruß Frank

[Luckie]

Zitat:

Zitat von MichaelLinden

Könnte das nicht eine nmormale Form sein?

Positionierung: vielleicht:

Delphi-Quellcode:

function TaskBarHeight: Integer;
var
  hTB: HWND; // taskbar handle
  TBRect: TRect; // taskbar rectangle
begin
  hTB:= FindWindow('Shell_TrayWnd', '');
  if hTB = 0 then
    Result := 0
  else begin
    GetWindowRect(hTB, TBRect);
    Result := TBRect.Bottom - TBRect.Top;
  end;
end;

Delphi-Quellcode:

// ins entsprechende Ereignis:
FormX.Left := Screen.Width + FormX.Width;
FormX.Top := Screen.Height - FormX.Height - TaskBarHeight;

Was macht dein Code, wenn die Taskleiste nicht am unterem Rand ist?

[DeddyH]

Ist doch eigentlich egal (zumindest auf Single-Monitor-Systemen), da das Fenster dort eh nicht zu sehen ist.

Zitat:

Delphi-Quellcode:

FormX.Left := Screen.Width + FormX.Width;

:zwinker:

[turboPASCAL]

Zitat:

Zitat von DeddyH

Ist doch eigentlich egal (zumindest auf Single-Monitor-Systemen), da das Fenster dort eh nicht zu sehen ist.

Zitat:

Delphi-Quellcode:

FormX.Left := Screen.Width + FormX.Width;

:zwinker:

:mrgreen:

Code:

FormX.Left := Screen.Width [color=red][b]-[/b][/color] FormX.Width;

[Schucki]

Nachdem sich nun alle ordentlich auf die Schnekel gehauen haben, würde es mich freuen wenn wir wieder auf meine Frage schwenken könnten... :wink:

[lbccaleb]

Ich glaube Matze meinete das:

Hint über Tray

Ansonnsten wurde aber bereits geschrieben, dass es mit der Komponente "TJvDesktopAlert" der Jedis geht!
Desweiteren gibt es noch eine Komponente von TMS TAdvAlertWindow

[Schucki]

Hallo,

Zitat:

Zitat von lbccaleb

Ich glaube Matze meinete das:

Hint über Tray

Habe ich mir geladen und genau das gleiche Bild ist es bei mir. Also das kleine Fenster kommt, aber es bleibt eben nicht OnTop, sobald man ein neues Fenster aufmacht verschwindet das kleine Try Window in den Hintergrund.

Formstyle steht auf StayOnTop...

Das will ich eigendlich verhindern. Vielleicht hat noch einer einen Hinweis?

Gruß Frank!

[Lumpiluk]

Nennt man das nicht "Balloon Hint"?
-> http://www.delphipraxis.net/internal...t.php?p=863345

[Schucki]

Zitat:

Zitat von Lumpiluk

Nennt man das nicht "Balloon Hint"?

Das ist wiederum was ganz anderes... ich habe mitlerweile den Verdacht das das garkein TForma in dem Sinne ist sonder eher sowas wie ein Hinttext. Der schiebt sich ja auch immer konsequent nach "oben".

Opera meldet das ja auch sehr schön wenn was heruntergeladen wurde, bekommt man raus was das Fenster für ein Element ist?

Gruß Frank

[Matze]

Zitat:

Zitat von Schucki

Habe ich mir geladen und genau das gleiche Bild ist es bei mir. Also das kleine Fenster kommt, aber es bleibt eben nicht OnTop, sobald man ein neues Fenster aufmacht verschwindet das kleine Try Window in den Hintergrund.

Ist das bei allen Fenster so oder nur bei welchen, die selbst StayOnTop sind?
Bei mehreren StayOnTop-Fenstern kommt normalerweise das in den Vordergrund, was den Focus hat. Das ist bei Thunderbird & Co. genauso. Du kannst über einen Timer o.ä. dein Fensterchen wieder in den Vordergrund bringen, aber ich weiß nicht, ob du das so haben möchtest.

[Micha88]

Zitat:

Zitat von Luckie

Was macht dein Code, wenn die Taskleiste nicht am unterem Rand ist?

Moment.. kurz nachdenken ..

FormX müsste dann i-wo im Niemals-Land sein =)

Aber gute Frage .. kann ich aber leider nicht genau beantworten.