Форум: "Система";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
ВнизMessageDlgPos Найти похожие ветки
← →
User_OKA (2003-02-07 14:19) [0]Никак не соображу, как диалог MessageDlgPos поместить по центру основной формы. Что задать в X и Y?
← →
MBo (2003-02-07 15:07) [1]MessageDlgPos("QWERRTYTYY?",mtConfirmation, mbOKCancel, 0,
left+(width-200) div 2, top+(height-100) div 2);
200 и 100 - здесь ориентировочная ширина и высота диалога (зависит от длины текста и количества кнопок)
← →
User_OKA (2003-02-10 09:00) [2]А как эту ориентировочную ширину и высоту узнать?
← →
MBo (2003-02-10 09:16) [3]попробуй разобраться в исходнике CreateMessageDialog
← →
jack128 (2003-02-10 09:22) [4]а может не мучиться и File|New form ?
← →
User_OKA (2003-02-10 13:40) [5]Похоже к этому все и идет!
← →
MacX (2003-02-10 20:06) [6]Лично я использую такую функцию:
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;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c