Assistant.MessageDlg

[w2m]

Can the Assistant.MessageDlg width and height be made a little larger? ... similar in size to MessageDlg or is the only way by creating a CustomDialog. It would be much more useful if the size of the MessageDlg could be adjsted and the amount of text inside the dialog could be larger.

Code: Select all

procedure TMainForm.Message1Click(Sender: TObject);
const
  Msg = 'The clipboard contains a bitmap.' + #10#13 +'Remove the bitmap from the clipboard?';
var
  AResult: word;
begin
   Assistant.MsgDlg.Title := 'Clipboard Contains A Bitmap';
   AResult := Assistant.MessageDlg(Msg, mtConfirmation, [mbYes, mbNo], 0);
   if AResult = mrYes then
     ShowMessage('Yes Selected')
   else
     ShowMessage('No Selected');
end;

Regards,

Bill

[Kambiz]

You can define the minimum balloons' width using members of Balloon.Metrics property.

To increase height of the MessageDlg's balloon, there is only one workaround: add new line (#13#10) before and/or after the message.