| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Position message box

Jon ©   (2008-08-12 13:20:00) 

How can ShowMsg be centered on parent form instead of sreen?

---

Jon   (2008-08-13 01:58:00) [1]

Thanks for mentioning hooks!
This is my solution:


program Test;

uses
 Windows, Messages, KOL;

var
 Hook: HHOOK;

function HookProc(Code,wParam,lParam: Integer): Lresult; stdCall;
var
 Wnd: Hwnd;
 Rect: TRect;
 MB_Width, MB_Height: Integer;
begin
 if Code < 0 then
   CallNextHookEx(Hook,Code,wParam,lParam);
 if Code = HCBT_ACTIVATE then
 begin
   Wnd := wParam;
   GetWindowRect(Wnd,Rect);
   MB_Width := Rect.Right - Rect.Left;
   MB_Height := Rect.Bottom - Rect.Top;
   MoveWindow(Wnd,Applet.Left + ((Applet.Width - MB_Width) div 2),Applet.Top + ((Applet.Height - MB_Height) div 2),MB_Width,MB_Height,True);
   UnhookWindowsHookEx(Hook);
 end;
 Result := CallNextHookEx(Hook,Code,wParam,lParam);
end;

procedure MouseDown(Dummy: Pointer; Sender: PControl; var Mouse: TMouseEventData);
begin
 if Mouse.Button <> mbLeft then Exit;
 Hook := SetWindowsHookEx(WH_CBT,HookProc,0,GetCurrentThreadId);
 ShowMsg('>> Click! <<',MB_OK or MB_APPLMODAL or MB_SETFOREGROUND);
//  UnhookWindowsHookEx(Hook);
end;

begin
 Applet := NewForm(nil,'Test').SetSize(640,480);
 Applet.OnMouseDown := TOnMouse(MakeMethod(nil,@MouseDown));
 Run(Applet);
end.


---

azsd   (2008-08-12 23:58:00) [2]

you can use SetWindowHookEx to get rid of popuped MessageBox, or you can using an NewThreadEx() to create a thread, then get the message box by findwindow and move it. but I suggest to new a form with same layout like Messagebox then ShowModal() it.

---

Наверх