String in Message Dialog

[alcaeus]

Eine MsgBox die "Ok" als Button hat und einen beliebigen Text:

Delphi-Quellcode:

procedure ShowBox;
var
  MsgType: Integer;
begin
  case RadioGroup1.ItemIndex of
    0: MsgType := mtInformation;
    1: MsgType := mtConfirmation;
    2: MsgType := mtWarning;
    3: MsgType := mtError;
  end;
  MessageDlg(Edit1.Text,MsgType,[mbOk],0);
end;

Anstatt [mbOk] kannst du auch andere Buttons verwenden, da musst du aber noch in der Hilfe nachschauen, ich bin zu faul. Die Funktion gib dir als Rückgabewert den Button zurück, auf den der User geklickt hat (z.b. mrOk, mrYes, mrNo)