String in Message Dialog

[Die Muhkuh]

hi,

ich hab vor nen kleines Prog zu entwerfen mit dem seine eigene Message Box "designen" kann!

ich hab schon angefangen:

Delphi-Quellcode:

var
  s,t, : string;
begin
  s: Edit1.text;
  t: Edit2.Text;
    showmessage (s,t, 4+32);
end;

nur ernte ich hier ne Fehlermeldung das string nicht mit messagedialog zusammenpasst (oder so ähnlich)

Was muss ich denn tun damit das funtzt???

Spider

[Dagon]

An ShowMessage() kann nur ein Parameter übergegeben werden!

[Die Muhkuh]

sorry da hab ich mich verschrieben es soll

  Application.messagebox (s,t, 4+32); heißen!


Spider;

[alcaeus]

Master hats erfasst, ShowMessage() kann nur einen Parameter übernehmen. Wenn du allerdings eine eigene MsgBox machen willst, solltest du MessageDlg() oder MessageDlgPos() verwenden. Syntax:
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word; Mehr Hilfe findest du ja dann in der...ähm...Hilfe

Viel Glück noch

[Die Muhkuh]

Gibbet es einen Beispiel Code von jemanden??? (hier)

[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)