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

Вниз

OnClick для Edit’а, если Enabled := False   Найти похожие ветки 

 
Dr. Genius   (2006-09-26 09:42) [0]

Здравствуйте!

Событие OnClick для Edit’а не срабатывает, если св-во Enabled Edit’а установлено в False. Можно ли это исправить?


 
Megabyte ©   (2006-09-26 09:46) [1]

А зачем?


 
Сергей М. ©   (2006-09-26 09:46) [2]


> Можно ли это исправить?


Нельзя.
А зачем вообще это "исправлять" ?
Это же абсолютно нормальная логика - "запрещенный" контрол не должен и не может получить фокус ввода..


 
ЮЮ ©   (2006-09-26 10:10) [3]

Можно. Обработав OnClick parenta.

type
 TControlAccess = class(TControl);

procedure TForm1.Edit1Click(Sender: TObject);
begin
 TEdit(Sender).Tag := TEdit(Sender).Tag + 1;
 Caption := "OnClick " + IntToStr(TEdit(Sender).Tag);
end;

procedure TForm1.FormClick(Sender: TObject);
var
 c: TControl;
 p: TPoint;
begin
 p := Mouse.CursorPos;
 p := ScreenToClient(p);
 c := ControlAtPos(p, true, true);
 if (c <> nil) then
 if not c.Enabled and Assigned(TControlAccess(c).OnClick) then
   TControlAccess(c).Click;
end;

Вопрос, зачем вообще у TEdita обрабатывать OnClick, пусть даже и у доступного



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

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

Наверх




Память: 0.47 MB
Время: 0.052 c
11-1135322419
Lari
2005-12-23 10:20
2006.10.15
Преобразование PJpeg -> TBitMap?


15-1158689802
lookin
2006-09-19 22:16
2006.10.15
Много или надежно - что победит?


15-1159117009
Alx2
2006-09-24 20:56
2006.10.15
Связь изменения численности населения города и уровня жизни в нем


3-1155278466
wipr
2006-08-11 10:41
2006.10.15
Open and detach


3-1155885560
Valery
2006-08-18 11:19
2006.10.15
Список в DBLoocupCombobox