Скачать: CL | DM;

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

← →
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?

---

← →
Loginov Dmitry ©   (2006-03-08 23:53) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c