Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Application.MessageBox [D4, D5, D6, D7]

Петр © (2003-04-23 13:40:00)
Добрый день !

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

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

Петр (2003-05-15 06:35:00) [1]
/

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

Proton (2003-05-02 13:36:00) [3]
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
дважды (или трижды) неврно

LEON (2003-04-30 20:14:00) [4]
или FindWindow + MoveWindow

LEON (2003-04-30 20:10:00) [5]
MessageBoxEx

или FindWindow + SetWindowPos

Петр (2003-04-29 12:26:00) [6]
> aleksey_sv
MessageDlgPos - позволяет сделать именно то, что я хочу, но он не руссифицирован. Мне нужен русский заголовок на форме диалога.
Может есть другая API функция?

aleksey_sv (2003-04-24 10:49:00) [7]
MessagedlgPos

Игорь Шевченко (2003-04-23 13:45:00) [8]
SetWindowsHookEx(WH_CBT, ....)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »