суббота, 27 апреля 2013 г.

Ещё правки VCL (19)


function TApplication.IsMDIMsg(var Msg: TMsg): Boolean;
begin
  Result := False;
  if (MainForm <> nil) and (MainForm.FormStyle = fsMDIForm) and
     (Screen.ActiveForm <> nil) {and (Screen.ActiveForm.FormStyle = fsMDIChild)} then {V}
    Result := TranslateMDISysAccel(MainForm.ClientHandle, Msg);
end;

Комментариев нет:

Отправить комментарий