BorlandTalk.com

molecularmotor@yahoo.com. · Guest

I am writting something like an IME, which captures and responds to the
key events of a 'Main' form. The problem is that the 'IME' form will be
focused if it is clicked. So I bring the main window to the top when
the IME form is activated:

procedure tIMEform.FormActivate(Sender: TObject);
begin
SetWindowPos(mainform.Handle, 0, 0, 0, 0, 0,
SWP_NOOWNERZORDER or SWP_NOMOVE or SWP_NOSIZE);
end;

The new problem is, all the controls in the IME form now cannot receive
the mouse events......

Does anyone have any idea to solve this?

Molecular Motor · Guest

Solved. Just add the follwing lines:

procedure tIMEform.WMMouseActivate(var msg: tmessage);
begin
msg.result := MA_NOACTIVATE;
end;