Hi
I create my own dialogs, so that you can modify the position etc.
Look At
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons): TForm;
function MessageApp(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons): Integer;
{***********************************************************************
****}
{Comments: Adaptation of the messageDLG form, for the screen position
{***********************************************************************
****}
var
myDialog : TForm;
begin
{Displays the default windows message dialog}
myDialog := CreateMessageDialog(Msg, DlgType, Buttons);
try
myDialog.HelpContext := 0;
myDialog.HelpFile := '';
// You can set the top and left as well with myDialog.Top :=
myDialog.Position := poMainFormCenter;
Result := myDialog.ShowModal;
finally
myDialog.Free;
end;
end;
Hope this help
Johan Fourie
http://www.cq.co.za
DISCLAIMER:
Everything in this email and its attachments relating to the official business
of arivia.kom is proprietary to arivia.kom. It is confidential, legally
privileged and protected by law. The person addressed in the email is the sole
authorised recipient. Any unauthorized dissemination or copying of this e-mail
(or any attachment to this e-mail) or the wrongful disclosure of the
information herein contained is prohibited.
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
