| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ПРОБЛЕМА. Делаю компонент PageControl (наследник TCustomControl) [D7, WinXP]
Артем К. © (2005-02-03 13:45:00)Привет, Мастера!
Подскажите пожалуйста...
Делаю компонент типа PageControl, но не его потомок, а наследник от TCustomControl... (свой короче).
У TPageControl когда в Design-тайме выбираем закладку, то соответственно она активизируется и показывается ее страница (Page).
Я хотел узнать как в Design-тайме можно сделать реакцию компонента на клик мышки...
Спасибо!
Rule (2005-02-04 09:00:00) [1]А помоему есть такой компонент ...
Артем К. (2005-02-04 06:22:00) [2]>>GuAV Спасибо!
GuAV (2005-02-04 03:07:00) [3]TPageControl + Ctrl Click
type
TArtemKPageControl = class(TCustomControl)
...
protected
procedure Click; override;
procedure CMDesignHitTest(var Message:
TCMDesignHitTest); message CM_DESIGNHITTEST;
...
end;
...
implementation
...
procedure TArtemKPageControl.Click;
begin
ShowMessage('Я те кликну !');
// Ловит и в рантайме
// можно проверять csDesigning in ComponentState
// чтобы ловить только в дезайнтайм
inherited;
end;
procedure TArtemKPageControl.CMDesignHitTest(
var Message: TCMDesignHitTest);
begin
if Message.Pos.y < 15 then // верх контрола
begin
Message.Result := 1;
end;
end;
Артем К. (2005-02-04 02:37:00) [4]Мастера, помогите, пожалуйста!
| |
