Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];
Внизотслеживание нажатия ентера Найти похожие ветки
← →
FIL-23 © (2007-02-19 18:07) [0]Народ что отслеживает нажатие ентира ну функция какято или процедура. Зарание спасибо
← →
Desdechado © (2007-02-19 18:18) [1]Form1.KeyPreview
← →
FIL-23 © (2007-02-19 18:31) [2]а если мне нужно отследить нажатие enter в едите?
← →
Джо © (2007-02-19 18:52) [3]Никто ничего не отстлеживает. В Делфи используется парадигма «событий» (events). Вот и нужно смотреть, какие события есть у TEdit и назначить на нужное событие свой обработчик. Все это легко делается прямо в дизайнере форм.
← →
santey © (2007-02-19 19:21) [4]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then label1.Caption:="Нажата клавиша Enter"else label1.Caption:="";
end;
end.
← →
Gydvin © (2007-02-19 21:00) [5]
> procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
>
> Shift: TShiftState);
> begin
> if key=13 then label1.Caption:="Нажата клавиша Enter"else
> label1.Caption:="";
>
> end;
if key=13 then label1.Caption:="Уже "отжата" клавиша Enter"
:0)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c