Окно MessageDlg и его расположение на экране...

← →
незнайка © (2003-12-22 10:37) [0]

Привет.. как бы расположить окно MessageDlg не по центру экрана, а по центру формы?

← →
Ega23 © (2003-12-22 10:47) [1]

Форму расположить по центру экрана :-)))

← →
Вованчик © (2003-12-22 10:51) [2]

Из справки:
MessageDlgPos("Are you there?",mtConfirmation, mbYesNoCancel, 0, 200, 200);

← →
Babay © (2003-12-22 10:52) [3]

можно использовать ShowMessagePos
правда это уже не совсем MessageDlg...

← →
Вованчик © (2003-12-22 10:52) [4]

и подгони под центр формы, или как Ega23 ©

← →
Леприкон © (2003-12-22 11:03) [5]

> Вованчик © (22.12.03 10:51) [2]

..., 200, 200) - это же левый верхний угол.
А как ты узнаешь высоту и ширину окна MessageDlg?
Не совсем по центру получится... :))

← →
Вованчик © (2003-12-22 11:19) [6]

> Леприкон © (22.12.03 11:03) [5]

методом научного тыка можно :)

var MesDlg:TForm;
begin
//creating
MesDlg:=CreateMessageDialog("Уау, я в центре?",
mtConfirmation,
[mbYes]+[mbNo]+[mbCancel]);
//setting
MesDlg.Left:=Left+Width div 2-MesDlg.Width div 2;
MesDlg.Top:=Top+Height div 2-MesDlg.Height div 2;
//showing
case MesDlg.ShowModal of
mrYes: MesDlg.Close;
mrNo: begin
MesDlg.Close;
ShowMessage("Ни фига, в центре оно было.");
end;
mrCancel: MesDlg.Close;
end;
MesDlg.Free;

procedure TForm1.Button2Click(Sender: TObject);
begin
//const Msg: string; DlgType: TMsgDlgType;
// Buttons: TMsgDlgButtons;
// см реализацию MessageDlgPosHelp в Dialogs.pas

with CreateMessageDialog("uouiouiouioui", mtInformation,[ mbNoToAll]) do
try
HelpContext := 0;
HelpFile := "";
Position := poMainFormCenter;
ShowModal;
finally
Free;
end;
end;

Спасибо, помогло на ура.. :)

Окно MessageDlg и его расположение на экране... Найти похожие ветки