Заморочка при разработке компонента

← →
Loginov Dmitry © (2006-03-08 20:24) [0]

Проблема в том, что компонент обрабатывает сообщения в Design-Time, хотя следующий код при наведении курсора мыши на компоненте выводит сообщение об ошибке "can not focus a disabled and invisible window".

procedure TEKGFrame.WMMouseEnter(var Message: TWMMouse); begin ScrollBox1.SetFocus; end;

Как узнать, в каком режиме находится приложение - Design-Time или Run-Time? Тогда можно будет обойтись простой проверкой:
procedure TEKGFrame.WMMouseEnter(var Message: TWMMouse); begin if Run-Time then ScrollBox1.SetFocus; end;

← →
Карелин Артем © (2006-03-08 20:31) [1]

if csDesigning in FControl.ComponentState then

← →
Loginov Dmitry © (2006-03-08 21:34) [2]

Большое спасибо, это то что нужно!

← →
Loginov Dmitry © (2006-03-08 21:47) [3]

Еще один вопрос: как узнать, на какой форме лежит данный компонент?
Если он находится непосредственно на форме, то Parent указывает на форму, а как быть, если компонент находится, к примеру, на TPanel?

Все, отвечать не нужно, сам разобрался. Рекурсия, так сказать :)
function GetMainForm(Control: TWinControl): TWinControl; begin if Assigned(Control.Parent) then Result := GetMainForm(Control.Parent) else Result := Control; end;

Заморочка при разработке компонента Найти похожие ветки