MessageDlg 関数

MessageDlg関数の例です。図のようにEdit, RadioGroup, Buttonを貼り付けて下さい。 RadioGroupの使い方はこちらを参考にして下さい。

それぞれのボタンのOnClickに以下のコードを書きます。

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := Edit1.Text;
 
  case RadioGroup1.ItemIndex of
    0: MessageDlg(s, mtWarning, [MBOK], 0);
    1: MessageDlg(s, mtError, [MBOK], 0);
    2: MessageDlg(s, mtInformation, [MBOK], 0);
    3: MessageDlg(s, mtConfirmation, [MBOK], 0);
    4: MessageDlg(s, mtCustom, [MBOK], 0);
  end;
end;
  
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
begin
  s := Edit1.Text;
  
  case RadioGroup2.ItemIndex of
    0: MessageDlg(s, mtInformation, [mbOK], 0);
    1: MessageDlg(s, mtInformation, [mbCancel], 0);
    2: MessageDlg(s, mtInformation, [mbYes], 0);
    3: MessageDlg(s, mtInformation, [mbNo], 0);
    4: MessageDlg(s, mtInformation, [mbAll], 0);
    5: MessageDlg(s, mtInformation, [mbOK, mbCancel], 0);
  end;
end;

また、TMsgBlgBtn型は他にもありますので、ヘルプを参考にして下さい。

up next
Last update: 2002/3/3