Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
14-6778
Tano
2003-03-17 02:13
2003.04.03
Спецификация Plug and Play (программная и аппаратная)


1-6431
SZap
2003-03-23 15:55
2003.04.03
Перехват нажатий клавиши дополнительной клавиатуры


4-6835
KLOPHN
2003-02-03 03:55
2003.04.03
Как сделать чтоб приложение стартовало вместе с виндой


3-6420
PONTIY
2003-03-17 07:22
2003.04.03
Как узнать индекс (колонки) нажатой шапки в TRxDBGrid?


14-6741
Сергей Суровцев
2003-03-16 22:13
2003.04.03
Над всей Испанией безоблачное небо