Главная страница
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.029 c
8-1155284391
linky
2006-08-11 12:19
2007.04.29
Звук из сервиса.


5-1152615242
NewMan
2006-07-11 14:54
2007.04.29
Создание Компонена на основе TCustomControl


2-1176119830
@gent
2007-04-09 15:57
2007.04.29
проблема с отправкой данных в и-нет


1-1172838273
Юрий_К
2007-03-02 15:24
2007.04.29
Как дебагить процесс инициализации?


15-1175612115
oldman
2007-04-03 18:55
2007.04.29
Есть помнящие старый добрый фокспро?