做个带选择框的对话框

做个带选择框的对话框 主题:做个带选择框的对话框。 发信人: teleme(PassWord) 整理人: teleme(2001-05-29 12:38:08) 站内信件 procedure TForm1.Button1Click(Sender: TObject); var AMsgDialog: TForm; ACheckBox: TCheckBox; begin AMsgDialog := CreateMessageDialog('这是个带选择框的对话框' mtWarning [mbYes mbNo]); ACheckBox := TCheckBox.Create(AMsgDialog); try AMsgDialog.Caption := '确认'; AMsgDialog.Height := 130; ACheckBox.Font.Name := '宋体'; ACheckBox.Font.Charset := DEFAULT_CHARSET; ACheckBox.Font.Color := Clred; ACheckBox.Font.Size := 10; ACheckBox.Parent := AMsgDialog; ACheckBox.Caption := '这是什么,'; ACheckBox.top := 85; ACheckBox.Left := 5; case AMsgDialog.ShowModal of ID_YES: ; //点击确定 ID_NO: ; //点击NO end; if ACheckBox.Checked then begin ShowMessage('你选择是了呀,呵呵'); end; finally ACheckBox.Free; AMsgDialog.Free; end; end; ---- 忙,忙,忙。 忙,忙。 忙, 忙,忙,忙。 唉 再忙也得 告诉我 ,