Центрировать диалог на главной форме

[ZvEr_HaCkEr]

Всем привет.Имеется форма в onclose вызывается messagedialog,проблема состоит в том что появляется по центру экрана,а хотелось бы чтоб по центру формы.Помогите плз!

[Sibedir]

Используй MessageDlgPos

[ZvEr_HaCkEr]

а покажите небольшой пример использования.очень надо!

[Sibedir]

А что за messagedialog был у вас (Предполагаю, что это MessageDlg)? Чем он так принципиально отличается от MessageDlgPos?

[Sparkman]

Сообщение от ZvEr_HaCkEr

а покажите небольшой пример использования.очень надо!

MessageDlgPos('Сообщение',mtERROR,[mbOK],0,round(Form1.Left+Form1.Width/2),round(Form1.Top+Form1.Height/2));

не совсем по центру, но думаю поправите значения x и y

[ZvEr_HaCkEr]

Сообщение от Sibedir

А что за messagedialog был у вас (Предполагаю, что это MessageDlg)? Чем он так принципиально отличается от MessageDlgPos?

Да был MessageDlg.Когда поменял на MessageDlgPos стал ругать на вторую стороку

   if MessageDlgPos(s1,
   mtConfirmation,[mbYes,mbNo],0)=mrYes
   then halt(0)
   else Action:=caNone;

[Sparkman]

Сообщение от ZvEr_HaCkEr

Да был MessageDlg.Когда поменял на MessageDlgPos стал ругать на вторую стороку

   if MessageDlgPos(s1,
   mtConfirmation,[mbYes,mbNo],0)=mrYes
   then halt(0)
   else Action:=caNone;

function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word;

вы позицию окна забыли указать

[ZvEr_HaCkEr]

Сообщение от Sparkman

MessageDlgPos('Сообщение',mtERROR,[mbOK],0,round(Form1.Left+Form1.Width/2),round(Form1.Top+Form1.Height/2));

не совсем по центру, но думаю поправите значения x и y

О то что нужно спасибо!

[Sibedir]

Пользуйтесь следующими приемами:
- установите курсор на функции и Ctrl+F1
- удерживая Ctrl кликните по функции мышью
- если не знаете параметров функции установите курсор между скобками

MessageDlgPos(s1, mtConfirmation,| [mbYes,mbNo], 0)

и нажмите Ctrl+Shift+Space
- используйте при наборе кода Ctrl+Space

Mes| [Ctrl+Space]

И самое главное, не спешите задавать не нужнуе вопросы.

[ZvEr_HaCkEr]

Сообщение от Sibedir

- установите курсор на функции и Ctrl+F1

А у меня нет документации чтоб почитать можно было