Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1176385635
Albina
2007-04-12 17:47
2007.04.29
Выпадающий список


6-1162554304
Rentgen
2006-11-03 14:45
2007.04.29
?id=ТЕСТ TO id=%D2%C5%D1%D2


15-1175363532
homm
2007-03-31 21:52
2007.04.29
В борланд С++ 5.02 не компицца :(


15-1175234938
REA
2007-03-30 10:08
2007.04.29
Operator overloading


15-1175609702
oldman
2007-04-03 18:15
2007.04.29
Нужен диплом. Прошу не пинать.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский