Фокус в MDI приложении.

← →
Vovans (2004-03-23 21:59) [0]

Народ, подскажите пожалуйста, как вернуть фокус в дочерние окошко после, скажем использования, ComboBox на главной форме.
Вот мой код, подскажите пожалуйста что не так.
procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
if (activeMDIchild as Tform2)=nil then begin showmessage("Íè÷åãî íå çàãðóæåíî"); exit; end;
for I := MDIChildCount-1 downto 0 do
begin
(MDIchildren[i] as Tform2).richedit1.SelAttributes.name:=form1.ComboBox1.text;
end;
(MDIchildren[0] as Tform2).richedit1.setfocus;
end;

← →
Vovans (2004-03-23 22:25) [1]

!!!!!!!!!!!ЛЮДИ!!!!!!!!!!!
Вы меня слышите?!?!?!!?!?!?

← →
Deflorator++ (2004-03-24 00:48) [2]

может и тупо, но я делаю так:
TMDIChild(MDIChildren[i]).BringToFront;
PostMessage(TMDIChild(ActiveMDIChild).RichEdit2.Handle, WM_LBUTTONDOWN, 0, 0);

а прото setfocus не катит???

Фокус в MDI приложении. Найти похожие ветки