из Edit1 в Label1... Проблема

[Janger]

В общем, проблема такая...
Есть Edit1 и Label1
В Edit1 пишется текст, и при нажатии на кнопку Enter, всё что записано выводится в Label1.
Я пробовал, вот что у меня получилось....

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
Label1.Caption:=Edit1.Text;
Edit1.Clear;
end;

Но почему то, код у меня не работает...(( т.е. вообще никакой реакции..((

[Stilet]

Во-первых: Код нужно выделять спецтегом по правилам - кнопка # в редакторе постов
Во-вторых: Ты эту процедуру просто так написал в модуле или подключил ее к эдиту?

[Toxa]

у тебя случаем нет проблем с заполнением эдита, а то по логике он у тебя должен очищаться при вводе
попробуй так

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
 begin
  Label1.Caption:=Edit1.Text;
  Edit1.Clear;
 end;
end;

[Janger]

Сообщение от Toxa

у тебя случаем нет проблем с заполнением эдита, а то по логике он у тебя должен очищаться при вводе
попробуй так

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
 begin
  Label1.Caption:=Edit1.Text;
  Edit1.Clear;
 end;
end;

Я попробовал, ничего не выходит... такое ощущение, что он просто не реагирует на кнопку Enter, потому что, Label1.Caption:=Edit1.Text , без if работает в полне нормально...

[Yurk@]

FormKeyDown

не на то событие прицепил ...
должно быть
Edit1KeyDown

[Janger]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
  begin
  Edit1.Clear;
  end;
 Label1.Caption:=Edit1.Text;

так, тут вроде всё понятно, он весь текст который пишется в Edit отправляет на Label, он это делает...
потом, если я нажимаю кнопку Enter, то по идее, он должен очистить Edit1.
Но, он этого не делает...

Сообщение от Yurk@

не на то событие прицепил ...
должно быть
Edit1KeyDown

Сделал по другому.... всё равно не фурычит((

[Yurk@]

ёпрст
(не удержался)

[Janger]

Сообщение от Yurk@

ёпрст
(не удержался)

ну вот почему так??
У меня написано ровным счётом тоже самое, что и у тебя..
а ничего не работает((

[Janger]

окей,я начал заново) всё работает..)))
не знаю в чём дело, но начав заново, всё работает)