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

Вниз

Edit не регирует на нажатие enter   Найти похожие ветки 

 
Max727   (2007-04-10 10:18) [0]

Здравствуйте. Очень нужна помощь.
Впервые ствлкиваюсь с такой прблемой
при нажатии клавиши Enter не вызываются
обработчики событий ни KeyDown, ни KeyPress
компонента TEdit
как исправить такие глюки?


 
tesseract ©   (2007-04-10 10:29) [1]

Это не глюк а нормальная работа компонента. Переписывай очередь сообщений для того чтобы поймать VK_ENTER.


 
Leonid Troyanovsky ©   (2007-04-10 10:30) [2]


> Max727   (10.04.07 10:18)  

> как исправить такие глюки?

Сам ты глюки. Читай лучшего друга детей.
http://groups.google.com/group/fido7.ru.delphi.chainik/msg/9882c0fd38c38706

--
Regards, LVT.


 
Steep ©   (2007-04-10 11:58) [3]

procedure  TForm1.FormKeyPress(Sender:  TObject;  var  Key:  Char);
    begin
        //KeyPreview  :=  True;
        if  Key  =  #13  then
            begin
                ShowMessage("Key2");
                Key  :=  #0;
            end;
    end;


 
Max727   (2007-04-11 16:44) [4]

Информация интересная, но конкрктных примеров нет
где взять эту очередь
и как ее переписать?

2 Steep
FormKeyPress тоже не вызывается
программа упорно игнорирует нажатие этой клавиши


 
Ega23 ©   (2007-04-11 16:49) [5]


> программа упорно игнорирует нажатие этой клавиши


Form1.KeyPreview := True;


 
Max727   (2007-04-11 17:08) [6]

2 Ega23

> Form1.KeyPreview := True;

Без разницы
обрабатываются все клавиши кроме Enter
а как назло нужна именно она


 
Ega23 ©   (2007-04-11 17:19) [7]


> Без разницы
> обрабатываются все клавиши кроме Enter


Врёшь.


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   procedure FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key=VK_RETURN then Label1.Caption := "Enter" else Label1.Caption := "Not Enter";
end;

end.


 
Max727   (2007-04-11 17:32) [8]

Да,
так обрабатывается

И мой проект (я пересоздал заново)
скопировал все обработчики
заработал, что меня вогнало в тупик
тексты модулей полностью идентичны
но один проект работает(тот, что я только что создал)
второй-нет
я просто хотел разобраться в этой злой шутке
но так и не понял причины поже еще не раз на те же грабли наступлю


 
Ega23 ©   (2007-04-11 17:34) [9]


> тексты модулей полностью идентичны


У классика было "Не верю!"
Сам понимаешь, чудес не бывает.


 
_RusLAN ©   (2007-04-11 17:53) [10]

> [8] Max727   (11.04.07 17:32)
> Да,
> так обрабатывается
>
> И мой проект (я пересоздал заново)
> скопировал все обработчики
> заработал, что меня вогнало в тупик
> тексты модулей полностью идентичны
> но один проект работает(тот, что я только что создал)
> второй-нет
> я просто хотел разобраться в этой злой шутке
> но так и не понял причины поже еще не раз на те же грабли
> наступлю

А в Object Inspector на вкладке Events обработчик прописан?


 
Max727   (2007-04-12 12:48) [11]

2 _RusLAN


> А в Object Inspector на вкладке Events обработчик прописан?


да прописаны
событие вызывается для всех
кнопок, кроме EnEnter

но это уже не важно
в новом проекте все работет нормально
меня просто мучит вопрос:
из за чего такое могло быть?



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

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

Наверх




Память: 0.49 MB
Время: 0.03 c
15-1175336334
Цукор5
2007-03-31 14:18
2007.04.29
создание HLP


2-1175775557
leonidus
2007-04-05 16:19
2007.04.29
Глюки с отображением формы


3-1171193078
Карасик
2007-02-11 14:24
2007.04.29
ado- ошибка при добавлении записи


4-1165140028
Чапаев
2006-12-03 13:00
2007.04.29
Named pipe


2-1175949500
Tru
2007-04-07 16:38
2007.04.29
Наследование и полиморфизм