einfaches Meldungsfenster

[Helmi]

Hallo,

gibt es bei Delphi die Möglichkeit ein "einfaches" Meldungsfenster zu programmieren?

Unter einem einfachen Meldungsfenster mein ich ein Meldungsfenster (so ähnlich wie MessageDlg), das keine Buttons enthält, aber die Möglichkeit besitzt, über Code wieder geschlossen zu werden.

Ich könnte natürlich eine Form verwenden dafür, was ich aber jetzt auf den ersten Blick für übertrieben anseh.

[Luckie]

Standard Meldungsfenster ohne Schaltflächen gibt es nicht.

[Helmi]

Zitat von Luckie:

Standard Meldungsfenster ohne Schaltflächen gibt es nicht.

Und wieso kommt dann bei:
MessageDlg('Meldungstext', mtInformation, [], 0); ein Meldungsfenster ohne Buttons raus?

[Mystic]

Weil MessageDlg meines Wissens nach keine Standarddialoge erzeugt, sondern eigene (Von der VCL generiert).

[Helmi]

ah so - na gut

Kann man denn auf so ein MessageDlg von "aussen" zugreifen?

also so ein art MessageDlg.Close

[Luckie]

MessageDlg habe ich noch nie verwendet und bin nicht davon ausgegangen, dass es geht.

[himitsu]

Zitat von Helmi:

Und wieso kommt dann bei:
MessageDlg('Meldungstext', mtInformation, [], 0); ein Meldungsfenster ohne Buttons raus?

Was auch wieder nichts bringt, weil man dieses nicht so einfach mit 'nem Code schließen kann, da es ja das Programm anhält.
Also wieder einen Hook proggen, oder einen Thread starten, womit an das Fenster schließt ... da wäre dann 'ne eigene Form wieder einfacher

[Helmi]

Zitat von himitsu:

Was auch wieder nichts bringt, weil man dieses nicht so einfach mit 'nem Code schließen kann, da es ja das Programm anhält.
Also wieder einen Hook proggen, oder einen Thread starten, womit an das Fenster schließt ... da wäre dann 'ne eigene Form wieder einfacher

Na gut - bei so was wär eine Form einfacher!

Natürlich sollte diese spezielle Message das Programm nicht anhalten - sondern einfach im Vordergrund stehen und was anzeigen

[SirThornberry]

der MessageDlg macht intern nix anderes als ein Form zur Laufzeit zu kreiren. Man könnte es also eben so machen.

[Hawkeye219]

Hallo Helmi,

die Funktion CreateMessageDialog hilft dir vielleicht bei deinem Vorhaben. Sie erzeugt ein Formular, das du beliebig anpassen kannst:

Delphi-Quellcode:

var Form : TForm;
begin
  Form := CreateMessageDialog('Eine Meldung', mtCustom, []);
  try
    Form.Height := 60;
    Form.Show;

    // beliebige Aktionen
  
  finally
    Form.Free;
  end;
end;

Gruß Hawkeye