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

← →
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 и назначить на нужное событие свой обработчик. Все это легко делается прямо в дизайнере форм.

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.

> 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)

отслеживание нажатия ентера Найти похожие ветки