simples Meldungsfenster

[JSch]

Hallo,

... und wieder eine Anfängerfrage:
Ich möchte, während das Hauptprogramm auf Schnittstellenaktivität wartet, ein simples Meldungsfenster ohne Buttons usw ausgeben. Dazu müßte ich die Meldung vor Eintritt in die "Warteschleife" aktivieren und sobald ein Ereignis auftritt wieder deaktivieren. Also:

...
Meldungsfenster erzeugen (z.B: "Warte auf Schnittstelle")
Ereignis abwarten
Meldungsfenster schließen
...

Wie kann ich das realisieren? Mir geht es dabei nur um das Meldungsfenster (erzeugen/schließen); das Warten funktioniert schon.

Vielen Dank für eure Hilfe.

Mfg,

JSch

[Thorben_K]

vielleicht versteh ich die frage nicht ganz, aber wäre

ShowMessage net das was du suchst?

[JSch]

...im Prinzip schon, aber wie entferne ich die Message wieder vom Bildschirm ohne irgendwelche Buttons anklicken zu müssen?

[Nils_13]

Eine Methode wäre es, einfach das Fenster abzuknallen bzw. Enter oder Alt+F4 drücken.

[Thorben_K]

oder du nimmst MessageDlg die Buttons solltest du ja auslösen können...

sonnst nimm halt nen extra formular, das kannst ja einfach schliesen ;)

[JSch]

... na ja, drücken und klicken wollte ich ja eben vermeiden. Nur erschien mir ein eigenes Formular für eine simple Meldung reichlich aufwändig.

[Hawkeye219]

Hallo Jsch,

als schnelle Lösung reicht vielleicht das:

Delphi-Quellcode:

// uses Forms, Dialogs

function CreateMessageWindow (const aMsg: string): TForm;
begin
  Result := CreateMessageDialog(aMsg, mtInformation, []);
  Result.BorderIcons := [];
  Result.Height := 88;
  Result.FormStyle := fsStayOnTop;
  Result.Show;
  Application.ProcessMessages;
end;

procedure Test;
var
  Dlg : TForm;
begin
  // Fenster erzeugen und anzeigen
  Dlg := CreateMessageWindow('Warte auf Schnittstelle...');
  try
    // Ereignis abwarten (hier stellvertretend ein Sleep)
    Sleep (5000);
  finally
    // Fenster schließen und freigeben
    Dlg.Release;
  end;
end;

Gruß Hawkeye

[JSch]

... das sieht richtig gut aus! Werd's gleich mal ausprobieren.

Vielen Dank!!!

JSch

[TBx]

@JSch: CreateMessageDialog erstellt übrigens ein Form (diese Anmerkung nur, weil Du für mich völlig unverständlicherweise geschrieben hast, dass ein Form Dir für die Anzeige einer simplen Meldung zum aufwändig wäre).
@Thorben_K: MessageDlg und Showmessage sind hier völlig ungeeignet, da das Programm bis zur nächsten Nutzeraktion (Klicken auf einen Button, Schließen des Dialogfensters) unterbrochen wird.
@Nils_13

Zitat:

Eine Methode wäre es, einfach das Fenster abzuknallen bzw. Enter oder Alt+F4 drücken.

Tastatur- bzw. Mauseingaben waren nicht gewünscht.
Und was verstehst Du unter abknallen? Wenn Du nicht zusätzliche Threads abspaltest, wird es Dir wohl kaum möglich sein, ein Showmessage programmseitig zu beenden.

Insofern dürfte also Hawkeye219s Lösung hier das beste sein.

Gruß

Thomas