Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

отслеживание нажатия ентера

FIL-23 © (2007-02-19 18:07:00)
Народ что отслеживает нажатие ентира ну функция какято или процедура. Зарание спасибо

Gydvin (2007-02-19 21:00:00) [1]

> procedure TForm1.Edit1 KeyUp(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)

santey (2007-02-19 19:21:00) [2]
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.

Джо (2007-02-19 18:52:00) [3]
Никто ничего не отстлеживает. В Делфи используется парадигма «событий» (events). Вот и нужно смотреть, какие события есть у TEdit и назначить на нужное событие свой обработчик. Все это легко делается прямо в дизайнере форм.

FIL-23 (2007-02-19 18:31:00) [4]
а если мне нужно отследить нажатие enter в едите?

Desdechado (2007-02-19 18:18:00) [5]
Form1.KeyPreview

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »