Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Опять - DeсimalSeparator???   Найти похожие ветки 

← →
Alx2   (2002-03-27 16:45) [18]

>Юрий Зотов © (27.03.02 16:28)
> ... forms currently displayed on the screen".
Хм.. действительно.

Но вот работающий пример для всех форм, которые входят в состав Application (то есть созданы через Application.CreateForm(TForm, Form, либо через Form := TForm.Create(Application));

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [",","."] Then Key := DecimalSeparator;
end;

procedure TForm1.InitHandlerBtnClick(Sender: TObject); // Раздаем обработчик.
Var k : Integer;
begin
for k := 0 to Application.ComponentCount-1 do
if Application.Components[k].ClassParent = TForm then
with Application.Components[k] as TForm do
begin
KeyPreview := true;
OnKeyPress := FormKeyPress;
end;
end;

А вот для Form2 := TForm2.Create(Nil)) - не сработает. Там только Ваш вариант IMHO.
>что FormKeyPress он не знает - ведь в классе TForm такого нет.
Зато там есть метод OnKeyPress. И ему спокойно присваивается FormKeyPress

---

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

Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c