| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MessageDlgPos [D5]
User_OKA © (2003-02-07 14:19:00)Никак не соображу, как диалог MessageDlgPos поместить по центру основной формы. Что задать в X и Y?
MacX (2003-02-10 20:06:00) [1]Лично я использую такую функцию:
function MessageDlgCtr(const Msg: String; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
with CreateMessageDialog(Msg, DlgType, Buttons) do
try
HelpContext := HelpCtx;
Left := Screen.ActiveForm.Left + (Screen.ActiveForm.Width div 2) - (Width div 2);
Top := Screen.ActiveForm.Top + (Screen.ActiveForm.Height div 2) - (Height div 2);
Result := ShowModal;
finally
Free;
end;
end;
User_OKA (2003-02-10 13:40:00) [2]Похоже к этому все и идет!
jack128 (2003-02-10 09:22:00) [3]а может не мучиться и File|New form ?
MBo (2003-02-10 09:16:00) [4]попробуй разобраться в исходнике CreateMessageDialog
User_OKA (2003-02-10 09:00:00) [5]А как эту ориентировочную ширину и высоту узнать?
MBo (2003-02-07 15:07:00) [6]MessageDlgPos("QWERRTYTYY?",mtConfirmation, mbOKCancel, 0,
left+(width-200) div 2, top+(height-100) div 2);
200 и 100 - здесь ориентировочная ширина и высота диалога (зависит от длины текста и количества кнопок)
| |
