Ввод в невидимые TEdit

[Владимир]

1. На форму кладем Panel1, на нее Edit1
2. Пишем код

Код: Выделить всё

Edit1.OnKeyPress(key Char...)
begin
Form1.Caption:=key;
end;

Edit1.OnKeyDown(key Word...)
begin
if key=27 then Panel1.Visible:=False;
end;

3. Запускаем и ставим фокус на Edit
4. Нажимаем кнопочки (кроме <Esc>) и смотрим на Caption формы
5. Наджимаем <Esc> - убирается панель
6. Опять нажимаем кнопочки и смотрим на Caption формы
7. Отписываем результат.
8. Все.

[VirtUX]

1. Положили
2. Написали
3. Поставили
4. Нажимали - в заголовке видели букывки
5. Наджали <Esc> - убиралась панель
6. Опять нажимали кнопочки и смотрели на Caption формы - ничего не видели, глазки протирали - опять ничего не видели
7. Отписали
8. Все.

[Владимир]

Спасибо! Т.е. это 0.9.24 так себя ведет, в 9.26 - все Ок.
p.s. С юмором у меня все Ок - если ты узрел некорректность в описании методы теста - прошу прощения, если "кнопочки" раздражают, буду писать клавиши...
Согласись, что тестировать нужно одинаковый код дабы добиться однозначного вывода. У меня под Лазарусом весьма серьезное приложение вертится...

[Logo]

Lazarus 0.9.26, FPC 2.2.0, GTK-2
Работает все нормально. Эдит теряет фокус и никакого ввода не происходит.
Или я что то не понимаю? Вложеный пример:

test_TPanel.tar

Повторяю - если закрывать панель по кнопке - в Вашем примере SpeedButton - все работает штатно!
Ввод в TEdit продолжается при закрытии панели по Edit.OnKeyDown, как в моем примере

Добавил в пример:

Код: Выделить всё

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState );
begin
  Panel1.Visible := False;
end;

Под GTK-2 работает корректно. Под QT и Windows попробовать пока нет возможности.

Добавлено спустя 5 минут 1 секунду:

... У меня под Лазарусом весьма серьезное приложение вертится...

Да тут у большенства они весьма серьезные вертятся. А за стилистику описания не переживай, будем больше общаться, - будем более одинаково описывать

[Владимир]

Спасибо! Т.е. это 0.9.24 так себя ведет, в 9.26 - все Ок.

[Attid]

ТОЧКА

по просьбам трудящихся =)