Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c