如何得到有3个按钮的对话框，并且如何得到相应按钮的事件

Question

如何得到有3个按钮的对话框，并且如何得到相应按钮的事件

Answer 1

做一个form上加3个button,随后根据不同的button点击返回不同的值(可将其付给该form的全局变量再在主form里得到该全局变量的值).

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  messagebox(handle,'test','test',MB_YESNOCANCEL );
end;

Answer 3

if messagedlg('select',mtinformation,[mbyes,mbno,mbcancel],0)=mryes then
   begin
   end
else if messagedlg('select',mtinformation,[mbyes,mbno,mbcancel],0)=mrno then
   begin
   end
else 
   begin
   end;