Definition der Messageboxbuttons

[Spike2k3]

Weisst jemand zufällig auch wie man bei ner Messagebox die Buttonclicks definiert?
Means, wenn auf 'ja' dann blub, wenn auf 'nein' dann blüp.
Das bekomm ich nämlich nicht hin :oops:

Delphi-Quellcode:

procedure TForm1.Hintergrundndern1Click(Sender: TObject); 
Begin 
  with Application do 
  begin 
    messagebox('Na, Sarah Michelle Gellar','NOOOOOB',MB_YESNO); 
    //wenn ich nu auf ja klicke, soll das *zeile hierunter* passieren 
ShellExecute(0, 'open', 'about:blank', nil, nil, SW_SHOW); 
//wenn ich auf nein klicke, dann soll die box einfach verschwinden  
end; 

  end;

[Christian Seehase]

Moin Spike,

bei mir sagt die Hilfe zu TApplication.MessageBox das beim Anklicken von des Buttons Ja IDYES zurückgegeben wird. ;-)

Delphi-Quellcode:

  if Application.MessageBox('Inhalt','Titel',MB_YESNO) = IDYES then begin
    // Ja
  end else begin
    // Nein
  end;

[Spike2k3]

Ich Depp, da hätt ich auch von alleine draufkommen können.
Tja, mal wieder vergessen zu denken :wink:

Danke für die Hilfe. :idea: