Assistant.MessageDlg

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

Assistant.MessageDlg

Postby w2m » November 11th, 2008, 10:32 pm

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
w2m
w2m
Senior Member
Senior Member
 
Posts: 76
Joined: March 8th, 2003, 7:11 pm
Location: New York, USA

Re: Assistant.MessageDlg

Postby Kambiz » November 12th, 2008, 4:31 am

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.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm


Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 2 guests

cron