Application.MessageBox

← →
Петр © (2003-04-23 13:40) [0]

Добрый день !

Как вызвать окно MessageBox в заданной позиции экрана, а не как это делается по умолчанию - в центре экрана.

С уважением, Петр.

← →
Игорь Шевченко © (2003-04-23 13:45) [1]

SetWindowsHookEx(WH_CBT, ....)

← →
aleksey_sv © (2003-04-24 10:49) [2]

MessagedlgPos

← →
Петр © (2003-04-29 12:26) [3]

> aleksey_sv
MessageDlgPos - позволяет сделать именно то, что я хочу, но он не руссифицирован. Мне нужен русский заголовок на форме диалога.
Может есть другая API функция?

← →
LEON (2003-04-30 20:10) [4]

MessageBoxEx

или FindWindow + SetWindowPos

← →
LEON (2003-04-30 20:14) [5]

или FindWindow + MoveWindow

procedure TForm1.Button1Click(Sender: TObject);
var AMsgDialog: TForm;
ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog ("This is a test message.", mtWarning, [mbYes, mbNo]);
ACheckBox := TCheckBox.Create(AMsgDialog);
with AMsgDialog do
try
Caption := "Dialog Title" ;
Height := 169;
with ACheckBox do
begin
Parent := AMsgDialog;
Caption := "Dont show me again.";
Top := 121;
Left := 8;
end;
if (ShowModal = ID_YES) then
begin
if ACheckBox.Checked then
begin //... do if checked
end; //... do if NOT checked
end;
finally
ACheckBox.Free;
Free;
end;
end;

2lemon
дважды (или трижды) неврно

Ну и проблема, однако.
Чем хуки ставить, проще, ИМХО, один раз написать модуль, без всяких VCL, ресурс диалога и про-о-остенькая callback - функция, а затем вызывать по необходимости свой диалог с какими угодно - параметрами, хочешь здесь (X:=0, Y:=0), а хочешь - там (X:=1,Y:=1) - MsgBox(X,Y,"Куда проще?","Некуда!").

Application.MessageBox Найти похожие ветки