Infofenster im Systembereich erzeugen, einblenden und ausblenden

[KodeZwerg]

Vor Jahrzehnten hatte ich mir mal so etwas ähnliches gebastelt.
Ich bin dabei etwas anders vorgegangen da bei mir nur ein Fenster-Typ dargestellt werden sollte.
In der IDE habe ich mir ein mini-Fenter gebastelt, im großen und ganzen war es nur ein Label und ein Panel.
Diese leere Form habe ich als proto-Form in Resource abgelegt.
Wie ConnorMcLeod bereits schrieb braucht man dafür eine Verwaltung.
Die Position "unten rechts über Taskbar" war das einzige was ich zum berechnen brauchte.
In der Verwaltung habe ich den Bildschirm in "Max Höhe / Fensterhöhe" unterteilt um Positionen für die einzelnen Fenster zu erhalten.
Nun lediglich proto-Form in eine dynamische umwandeln, Label und Panel beschreiben, Verwaltung abfragen an welcher Position was frei ist und anzeigen lassen.
Was ich damals noch nicht drinnen hatte war das runterrutschen, wäre über die Verwaltung aber auch nicht so extrem schwer umzusetzen da die immer weiß welche Fensterpositionen belegt sind.
Problematisch wurde es bei mir in dem Sonderfall "was soll passieren wenn ein neues Fenster nicht mehr auf Screen passt"....
....da meine Art der Verwaltung nur "Max Screen Höhe / Fensterhöhe" als valide Ziele kannte.

[Hobbycoder]

Ich werfe mal JvDesktopAlert und JvDesktopAlertStack in den Raum. Das Funktioniert bei mir seit Jahren perfekt (XP bis Win10) und du hast einiges an Designmöglichkeiten.

Solltest du das aber unter allen Umständen selber machen wollen, so kannst du dir ggf. bei den Jedi's was abgucken.

[DieDolly]

Die Jedis benutze ich seit Jahren schon nicht mehr, da sich da scheinbar nichts mehr tut (zumindestes bei GitHub).
Der Code ist auch viel zu kompliziert finde ich, speziell für Anfänger.

Am liebsten wäre es mir, wenn mir ConnorMcLeod und KodeZwerg mit ihren Ideen zur Umsetzung verhelfen könnten.

[ConnorMcLeod]

Tut mir leid, wenn ich nicht allzuviel Zeit investieren kann (berufstätig ...), aber als Starthilfe/Diskussionsgrundlage:

Delphi-Quellcode:

type
  TFormPosition = record
    ... x, y, Breite, Höhe, Status (maximiert, normal, minimiert) etc ...
  end;

  TRutschForm = class(TCustomForm)
  private
    FCurrentPosition: TFormPosition;
  public
    procedure ZeigDich;
    procedure VersteckDich;
    procedure ZerstoerDich;
    procedure RutschVonNach(AVon: TFormPosition; ANach: TFormPosition);

    property MessageText: ...
  end;

  TRutschFormList = {delphiversionsabhängig} TList<TRutschForm>
    ... gewünschte Verhaltensweisen ...
  end;

[DieDolly]

Ich hab mich mal dran versucht aber bekomme es nicht hin.
Viel weiter komme ich mit deinem Konstrukt auch nicht. Genau gesagt komme ich nicht eine einzige Zeile weiter w eil mir das Verständnis fehlt.

[KodeZwerg]

Du kannst mal hier rein schauen, bei Interesse sag was.

[DieDolly]

Genau soetwas meine ich. Das ein- und ausblenden habe ich schon. Die entsprechenden Forms dafür ich (ich habe verschiedene).
Nur das mit der Liste kapier ich nicht, sodass wenn ein Fenster sichtbar ist, das neue oben drüber angezeigt wird und zusätzlich wenn eins sich ausblendet das obere runterrutscht.

[KodeZwerg]

Ich erzeuge den ganzen kram per Laufzeit, (da wollte ich Wissen ob es das ist was der TE dort wollte, aber blieb unbeantwortet) eine kleine Fensterverwaltung rein, sollte nicht so arg problematisch sein, ich weiß nicht wie Du es momentan machst, aber wenn es sowas in der Art ist wie ich da per Demo zeigte, kann ich das versuchen in ne Klasse zu quetschen, threads draus zu machen, ne kleine verwaltung rein, und es sollte so was wie bei jdownloader rauskommen, bei mir halt ne transparente mini-form blau mit nem Label drauf.
Womit ich gerade probleme habe wäre wie die Fenster reagieren wenn ein OnTop über nen anderes OnTop flutscht, bei mir wirds halt in ner loop ausgeführt bis fenster das sichtbare bild verlassen hat.
Gerne würde ich das runterflutschen auch beschränken das ab Taskbar abgeschnitten wird und nicht rübergemalt wird, so wie es jetzt der Fall ist.

Zeige doch mal ne Demo von dem was Du hast ;)

[DieDolly]

Mehr als das was auf Seite 1 steht habe ich nicht.
Mit dem was ich da stehen habe könntest du dir die Taskbarhöhe ausrechnen und dann die Form Height in einer Schleife + Delay immer um 1 verringern. Dann wärst du das Problem mit dem unter der Taskleiste los.

Wir könnten das eventuell zusammen machen. Du das mit den Klassen, da du dich damit scheinbar gut auskennst, und ich gehe das Problem mit der Taskleistenhöhe und -position an und stelle alles danach hier rein.

[KodeZwerg]

Delphi-Quellcode:

procedure ShowTrayMessage(const TheMessage: String);
var
 H: HWND;
 Rec: TRect;
 NeededTop: Integer;
 HintForm: TForm;
 HintLabel: TLabel;
 aw: hwnd;
begin
 H := FindWindow('Shell_TrayWnd', nil);
 if h <> 0 then
 begin
  GetWindowRect(h, Rec);
  HintForm := TForm.Create(nil);
  with HintForm do
  begin
   Width := 245;
   Height := 100;
   Color := clSkyBlue;
   BorderStyle := bsNone;
   FormStyle := fsStayOnTop;
   HintLabel := TLabel.Create(nil);
   with HintLabel do
   begin
    Parent := HintForm;
    WordWrap := true;
    Font.Name := 'Fixedsys';
    Font.Style := [fsBold];
    Font.Pitch := fpFixed;
    Font.Size := 9;
    Caption := ' ' + Trim(TheMessage) + ' ';
    Align := alClient;
    Layout := tlCenter;
    Alignment := taCenter;
   end;
   AlphaBlend := true;
   AlphaBlendValue:=220;
   aw := GetActiveWindow;
   ShowWindow(handle, SW_SHOWNOACTIVATE);
   SetActiveWindow(aw);
   Left := Screen.Width - Width;
   Top := Screen.Height - 20;
   NeededTop := Rec.Top - Height;
   while Top > NeededTop do
   begin
    Top:=Top - 2;
    Repaint;
    Sleep(10);
   end;
    Sleep(3000);
   NeededTop := Screen.Width - 20;
   while Top < NeededTop do
   begin
    Top:=Top + 2;
    Repaint;
    Sleep(10);
   end;
   HintLabel.Free;
   Free;
  end;
 end;
end;

So sieht das ganze momentan aus, ja Du magst kein "with", das ist dennoch erstmal meine Ausgangsbasis um daraus ne Threaded Klasse zu erschaffen.
Es gibt viel zu tun, also fangen wir was an :thumb: