Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

Свой компонент   Найти похожие ветки 

 
Алекса   (2003-12-22 10:48) [0]

Добрый день всем! Пишу свой компонент. Хотела кое-какое изменение внести в событие Enter, но Delphi ругается(говорит, что нет такого события в классе Tedit),когда я пытаюсь это событие прописать в protected(хотя KeyUp и KeyPress нормально приняла).В чем может быть причина?


 
Skier ©   (2003-12-22 10:51) [1]

Код !


 
Silver Alex ©   (2003-12-22 11:16) [2]

а какое событие надо OnEnter или реакция на нажатие клавиши Enter.Если OnEnter тогда надо переопределять DoEnter, а если нет то KeyDown и смотреть Key=VK_RETURN


 
Алекса   (2003-12-22 11:29) [3]

Код
type
Tdate = class(TEdit)
private
Fsize:boolean;
protected
procedure KeyUp(var Key:Word;Shift:TShiftState);override;
procedure KeyPress(var Key: Char); override;
procedure Enter(Sender: TObject);override;
public
{ Public declarations }
published
constructor Create(AOwner:TComponent);override;
property Sizedate:boolean read Fsize write Fsize;
end;


 
Юрий Зотов ©   (2003-12-22 11:37) [4]

Смотрим в Великое Священное Писание - исходники VCL. И находим ответ на эту неразрешимую загадку - оказывается, нужный нам метод называется DoEnter.


 
Skier ©   (2003-12-22 11:39) [5]

Юрий Зотов © (22.12.03 11:37) [4]
Думаю что и DoEnter не поможет.
Такое впечатление что автор путает получение фокуса ввода и нажатие Enter-а
Если я не ошибаюсь...


 
Алекса   (2003-12-22 11:42) [6]

Skier - ни фига! Все получилось! Спасибо Зотов!


 
Skier ©   (2003-12-22 11:43) [7]

Ну, значит я ошибался. Приношу извинения.



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

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-25424
IvanVin
2003-12-24 09:06
2004.01.09
Компонент


1-25436
EugenCFG
2003-12-23 18:25
2004.01.09
Здраствуйте... ! Кто-нибудь знает как определить координаты...


1-25335
vasyaVN
2003-12-22 13:01
2004.01.09
Перерисовка компонента ТCustomControl


4-25658
kryn
2003-11-06 10:48
2004.01.09
как при помощи DELPHI удалить папку вместе с файлами?


9-25166
Ник М. Цов
2003-06-07 20:35
2004.01.09
Текстовые квесты: Второе пришествие