messageDlgについて (ID:6238)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以前D2で作ったような気がしたので、探してD6用に直してみました。 function MsgDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; DefBtn: TMsgDlgBtn): Integer; const ButtonNames: array[TMsgDlgBtn] of string = ('Yes','No','OK','Cancel', 'Abort','Retry','Ignore','All','NoToAll','YesToAll','Help'); begin with CreateMessageDialog(Msg,DlgType,Buttons) do begin try HelpContext := 0; if DefBtn in Buttons then ActiveControl := FindComponent(ButtonNames[DefBtn]) as TWinControl; Result := ShowModal; finally Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if MsgDlg('ほんとにいいの？',mtConfirmation, [mbYes,mbCancel,mbNo],mbCancel)=mrYes then MsgDlg('ほんとに？',mtConfirmation, [mbYes,mbCancel,mbNo],mbNo); end;