|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.02.2012, 06:29 | #1 |
Регистрация: 03.02.2012
Сообщений: 8
|
Событие при создании компоненты.
Мне нужно описать событиe MouseDown, не могу понять как его объявить. Как объявлено ниже в коде не работает. Вообщем вот:
unit QBB1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Variants, ExtCtrls; type TResBut = (False, True); TBB1 = class(TButton) private { Private declarations } FResBut : TresBut; protected { Protected declarations } procedure MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); //override; public { Public declarations } published { Published declarations } constructor Create(aowner:Tcomponent);override; property ResBut: TResBut read FResBut write FResBut; end; procedure Register; implementation procedure Register; begin RegisterComponents('Standard', [TBB1]); end; constructor TBB1.create(Aowner:Tcomponent); begin inherited create(Aowner); end; procedure TBB1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Caption:=',jf,kvf,j'; end; end. |
03.02.2012, 09:49 | #2 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
В нашем случае override обязателен.
Первый параметр (Sender) здесь ни причем, а потому не нужен. Желательно вызывать и событие предка: Код:
После этого несложного препарирования кода - событие будет замечательно событиться. |
03.02.2012, 10:00 | #3 |
Регистрация: 03.02.2012
Сообщений: 8
|
спасибо, все заработало
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка при создании БД | alt5000 | PHP | 12 | 26.11.2011 18:46 |
Заменить стандартное событие компонента при создании своего. | postal2 | Компоненты Delphi | 6 | 28.08.2009 11:01 |
Проблема при создании БД | HAMMAN | БД в Delphi | 4 | 25.04.2008 08:44 |
При создании формы! | Anton | Помощь студентам | 4 | 08.08.2007 08:20 |