| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Black
Зарегистрирован: 11.07.2002
Сообщения: 27
Откуда: Саратов
|
 Добавлено: Чт Окт 20 2005 14:05 Заголовок сообщения: Delphi. Обработка события нажатия кнопки мышки |
 |
|
может вопрос и легкий но мне он что-то не подсилу.
создал два класса в run-time:
| Код: | type TSmallButton = class (TGraphicControl)
private
MouseUp: boolean;
public
Caption: string;
constructor Create(AOwner: TCOmponent); override;
procedure Paint; override;
procedure MouseEnter (var Msg:TMessage); message cm_mouseenter;
procedure MouseLeave (var Msg:TMessage); message cm_mouseleave;
Procedure MouseClick (var Msg:TMessage); message WM_LBUTTONDOWN;
end;
TInfoPanel = class (TGraphicControl)
LeftButton: TSmallButton;
PagesButton: TSmallButton;
RightButton: TSmallButton;
PlusButton: TSmallButton;
constructor Create(Aowner: TComponent); override;
procedure Paint; override;
end; |
с обработкой событий MouseEnter и MouseLeave над кнопками LeftButton, PagesButton, RightButton и PlusButton проблем нет... теперь хочу что бы при нажатии на них что-то приисходило с TInfoPanel.
Как это реализовать?
к примеру, когда мы размещаем кнопку на форме и с списке событий кнопки заходим в Onclшck , то у формы появлется еще одна процедура Button1Click... вот также я и хочу |
|
| Вернуться к началу |
|
 |
Black
Зарегистрирован: 11.07.2002
Сообщения: 27
Откуда: Саратов
|
| Добавлено: Чт Окт 20 2005 17:18 Заголовок сообщения: |
|
|
Все отбой!!!! меня к концу рабочего дня осенило ))))
в MouseClick
begin
OnClick;
end;
для всех ботонов делаем LeftButton.OnClick := Функция;
в TInfoPanel добавляем метод Функция(Sender: TObject); и что-нить в них делаем )))
короче в кратце так )))) |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
