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 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:

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

[turboPASCAL]

Zitat von DeddyH:

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

Zitat:

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

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...