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

Вниз

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


 
Proton ©   (2003-05-02 13:36) [6]

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
дважды (или трижды) неврно


 
e!dGe. ©   (2003-05-02 18:34) [7]

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


 
Петр ©   (2003-05-15 06:35) [8]

/



Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
1-55560
SkyRanger
2003-07-04 08:35
2003.07.17
Бинарное дерево


3-55435
OlegID
2003-06-24 12:55
2003.07.17
история значений


1-55502
Younger
2003-07-04 15:18
2003.07.17
Цвет


3-55416
seu
2003-06-24 07:30
2003.07.17
ADO+MIDAS


14-55722
r0n1n
2003-06-30 00:15
2003.07.17
Чат