Message Box

[cylon]

Hi,
hat jemand nen einfachen code, mit dem man, bei anklicken eines buttons, ne message box öffnet??
Ich fand nämlcih bisher immer nur kompliezierte Codes... :roll:

[Duffy]

Hallo cylon,
einfach genug?

Delphi-Quellcode:

MessageDlg('Eine einfache Messagebox', mtInformation, [mbOK], 0);

bye
Claus

[Mirilin]

:hi:

Delphi-Quellcode:

procedure TMainForm.ButtonShowMessageClick(Sender: TObject);
begin
  Application.MessageBox('Message Text', 'Titel', MB_OKCANCEL);
end;

In der Hilfe findest Du weitere Informationen dazu

mfg Tobias

[cylon]

hey., die ist cool und einfach...
DANKE :-D

[cylon]

Ja OK...
aber ich hab noch ne frage.
wie kann man auf buttondruck ne neue form öffnen?? :dance:

[Duffy]

Hallo cylon,
wenn das zweite Form existiert ...

Delphi-Quellcode:

Form2.ShowModal

bye
Claus

[Yan]

Hi cylon!

Also hier noch ein paar Varianten (wenn du mal was anderes brauchst):

Anstatt:

Code:

MessageDlg('Text',mtInformation,[mbOK],0)

kann man auch schreiben:

• Für eine Warnung (Symbol):
  Code:

  MessageDlg('Text',mtWarning,[mbOK],0)

  Für eine Frage (Symbol):
  Code:

  MessageDlg('Text',mtConfirmation,[mbOK],0)

  Mehrere Buttons:
  Code:

  MessageDlg('Text',mtInformation,[mbYes,mbNo],0) // Man kann belibig viele Buttons angeben (glaube ich)

• Wenn du wissen möchtest, welchen Button der benutzer gedrückt hat:
  
  Code:

  if MessageDlg('Frage',mtWarning,[mbYes,mbNo],0) = mrYes then  // mr steht für "Message Result"
  begin  // Wenn Benutzer "Ja" gedrückt hat
  //...
  end
  else
  begin  // Wenn Benutzer "Nein" gedrückt hat
  //...
  end;

Ich hoffe ich konnte dir helfen!

[cylon]

ja das ist gut...
danke..

[merlin17]

cylon,

noch schöner geht es, wenn du die gexperts (GExperts)installierst und dort
dann im GExperts-Menü (in der Delphi - IDE) "Messagedialg" aufrufst.

:-) thomas

[MrKnogge]

beliebig viele Buttons angeben ?
ich dachte es gehen nur so art "vordefinierte Varianten" von MS
also OK oder OK und Cancel.....

[tommie-lie]

Wenn man schon beim Auflisten von Alternativen ist, warum dann nicht auch die einfachste?

Delphi-Quellcode:

ShowMessage('Text');

Die Sparlösung für alle, die mal etwas weniger brauchen. Gibt nur 'ne Box mit Text, nur ein OPK-Button, kein Symbol, Titel entspricht dem des Programmes. Wenn man vom Fehlenden Warnsymbol absieht, die einfachste Möglichkeit dem User irgendwas mitzuteilen.

[Yan]

@ MrKnogge:

Keine Ahnung :(
Ist auch durchaus denkbar, dass Delphi den "MessageDlg(...)" Befehl in den Windows-API Befehl umwandelt.
Dort kann man nur die verdefinierten nehmen. (Das ist aus meinem bisschen C++ "Know-How" entnommen).

Ich würd' sagen du hast recht :wink:

[edit=Sharky]Doppelposting gelöscht ;-) Mfg, Sharky[/edit]

[PhöniX]

Gibt es auch eine MessageBox, in der es nur den Button Close gibt?
Also sozusagen eine Fehlermeldung und wenn der User sie gelesen hat und den Button drückt, dass das gesamte Projekt geschlossen wird?

[Luckie]

Delphi-Quellcode:

Messagebox(Handle, 'Text', 'Caption', MB_OK);

[PhöniX]

Und wie kann man eine Messagebox schließen?

[Matze]

Schließt die sich nicht von alleine, wenn du auf einen Button klickst?

[PhöniX]

Ja. Aber...Ich hab ne MessageBox von mtConfirmation und darin zwei Buttons (Ja und Nein). Wenn ich auf Ja klicke schließt die Form.
Wenn ich Nein klicke soll einfach die MessageBox weg sein und die From offen bleibern. Aber hier schließt sich die Form ebenfalls.

noch ein bisschen Code:

Delphi-Quellcode:

if MessageDlg('Sie müssen die Auswahl durch OK bestätigen.'+#10#13+
   'Anwendung schließen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
     Close;
    end
   else
    ???  //<---- hier muss die MessageBox geschlossen werden OHNE das die Form schließt...
  end;

[MrKnogge]

lass das else einfach weg !

Deine MesageBox schliest sich von alleine.

[PhöniX]

Dann erhalte ich auf einmal den Fatalen Fehler:

Ausgabedatei: 'F:\...\test.exe' kann nicht erstellt werden.

[OT] Wie kann ich diesen Fehler allgemein verhindern oder wodurch kommt er zustande? [/OT]

[Neg]

Der fatale Fehler kann aber nicht an der MessageBox liegen. Mehr Code, please.

[MrKnogge]

der kommt zustande, wenn du deine Exe gerade laufen hast...

[Matze]

Da fehlt jetzt bissle Code, so kann man net viel dazu sagen. ;)

Nachtrag: Mensch, ich lahme Maus :mrgreen:

[PhöniX]

ich hab meine anwendung aber nicht laufen...nicht inner taskleiste zu sehen und im Tast Mananger auch nicht..

Was nun? :gruebel:

[MrKnogge]

Dann müsste er mehrere Fehler bringen, und dir eventuell noch n paar Zeilen-Nr ausspucken, wenn du uns diese dann noch posten würdest :roll:

[fkerber]

Hi!

Tritt der Fehler beim Kompilieren auf oder erscheint der während das Programm am "Arbeiten" ist.

Ich tippe mal beim Kompilieren: Das kann wie gesagt nur sein, dass die Anwendung noch läuft. Vielleicht wurde sie unsauber beendet und ein Prozess spukt noch irgendwo rum.

An der Message-Box an sich kann es aber echt nicht liegen.

Ciao fkerber

[PhöniX]

was braucht ihr denn fürn code..ich hab ganz schöän viele auf verschiedene Forms verteilt??
Kann man das eingranzen oder alles?

[fkerber]

den Code, der den Fehler verursacht :)

Wie gesagt, wenn es beim kompilieren auftritt und du den Prozess nicht findest oder sonstwas mach vielleicht mal nen Neustart und guck dann mal wieder.
Sollte der Fehler erst mit dem "Einbau" verschiedener Funktionen aufgetreten sein, kommentiere diese Funktionen mal aus.

Solltest du dann gar keine Idee haben, häng dein Projekt gezipt als Anhang an.

Ciao fkerber

[MrKnogge]

Zitat:

Zitat von fkerber

Tritt der Fehler beim Kompilieren auf oder erscheint der während das Programm am "Arbeiten" ist.

Wenn es sich um den Fehler handelt: "Fataler Fehler: Ausgabedatei: 'F:\...\test.exe' kann nicht erstellt werden", würde ich behaupten beim Compilieren :mrgreen:

@PhöniX
gib uns einfach dein komplettes Projekt zum download...

[fkerber]

:wall: :wall: :wall:

hast ja recht ...

aber ich hatte ja angenommen, dass es beim Kompilieren ist. :drunken:

Ciao fkerber

[Die Muhkuh]

Das hab ich auch manchmal und ist recht einfach zu lösen:

Als erstes klickste in die Projektansicht. Danach einen Rechtsklick auf das Projekt und dann neu Compilieren und danach auf neu Erstellen!

Danach sollte es wieder gehen

[PhöniX]

Zitat:

Zitat von MrKnogge

lass das else einfach weg !

Deine MesageBox schliest sich von alleine.

Mal wieder zum Thema zurück..
Mit else weglassen gehts nicht, aber mit OnCloseQuery:

Delphi-Quellcode:

if MessageDlg('Sie müssen die auswahl durch OK bestätigen.'+#10#13+
   'Anwendung schließen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
     question := False;
     CanClose := True;
    end
    else
    CanClose := False;
    FormKonf.visible := true;
   end

[Die Muhkuh]

Na also,

wo ist das PRoblem? So gehts doch

[PhöniX]

Zitat:

Zitat von Spider

Das hab ich auch manchmal und ist recht einfach zu lösen:

Als erstes klickste in die Projektansicht. Danach einen Rechtsklick auf das Projekt und dann neu Compilieren und danach auf neu Erstellen!

Danach sollte es wieder gehen

gibz noch ne andre möglichkeit...
einfach taskmananger öffnen und bei prozesse das programm suchen und dann den prozess beeden..
einfacher :mrgreen:

[Die Muhkuh]

Oder so :D

[Hansa]

Wie kann ich in dem MessageDlg auch Koordinaten mitgeben ?

Delphi-Quellcode:

WeiterJaNein := MessageDlg('Weiter ?',mtInformation,[mbYes,mbNo],0,x,y,mbNo,nil) = mrNo;

Da kommt immer "zu viele Parameter".

Und dann noch zur Application.Messagebox. Worauf genau bzw. wie wirkt sich das aus ?

[MathiasSimmack]

Zitat:

Zitat von Hansa

Wie kann ich in dem MessageDlg auch Koordinaten mitgeben ?

Delphi-Quellcode:

WeiterJaNein := MessageDlg('Weiter ?',mtInformation,[mbYes,mbNo],0,x,y,mbNo,nil) = mrNo;

Da kommt immer "zu viele Parameter".

Warum wohl? :roll:
Schau mal in die Hilfe.

[Hansa]

Dann stelle ich die Frage anders rum: In der Delphi Hilfe stehen 5 verschiedene MessageDlg mit unterschiedlichen Parametern, ich brauche eine mit x und y, da die "normale" etwas wichtiges verdeckt.

[MathiasSimmack]

Willst du mich verar****? Wenn du 5 MessageDlg-Funktionen in deiner Hilfe hast, dann bedeutet das, du kannst die Box auf 5 verschiedene Arten aufrufen. Das gibt´s bspw. auch bei der .NET-MessageBox. Die einfachste Variante (vergleichbar mit "ShowMessage"):

Delphi-Quellcode:

MessageBox.Show('Hallo, Welt!');

Du kannst aber zusätzlich auch einen Titel angeben:

Delphi-Quellcode:

MessageBox.Show('Hallo, Welt!', 'Titel');

usw. Du musst eben nur die Konventionen (sprich: die erlaubten Parameter) beachten! Selbst ausdenken darfst du dir keine. Und wenn keine der 5 MessageDlg-Funktionen was von den X/Y-Koordinaten sagt, dann geht die Positionierung auch nicht.

[Hansa]

Jo, Verarsche. Versuche das hier mal zu compilieren:

Delphi-Quellcode:

function WeiterJaNein (x,y : integer) : boolean;
begin
(*
function MessageDlg(const Caption: WideString;
                    const Msg: WideString;
                    DlgType: TMsgDlgType;
                    Buttons: TMsgDlgButtons;
                    HelpCtx: Longint;
                    X,
                    Y: Integer;
                    DefaultBtn: TMsgDlgBtn = mbNone;
                    Bitmap: TBitmap = nil): Integer; overload;
*)
  WeiterJaNein := MessageDlg('Weiter ?',
                             '????????',
                             mtInformation,
                             [mrYes,mrNo],
                             0,
                             10,
                             11,
                             mbYes,
                             nil) = mrYes;
end;

Der Kommentar ist aus der Hilfe. Da wo die ??? stehen bleibt Delphi hängen "inkompatible Typen TMsgDlgType und string". Dafür kommt er erst gar nicht dazu, über "zuviele Parameter" zu meckern. :mrgreen:

[Hansa]

"Hilf sir selbst dann hilft dir Gott" :

Delphi-Quellcode:

function WeiterJaNein (x,y : integer) : boolean;
begin
  WeiterJaNein := MessageDlgPos('Weiter ? ',mtInformation,[mbYes,mbNo],0,x,y) = mrYes;
end;

MessageDlgPos. Und das wußte keiner ? :gruebel: