- Код: Выделить всё
begin
Timer2.Enabled := False; // остановить таймер
Label4.Visible := False;
if Edit1.Text = '1-1000' then
Label4.Visible := True;
end;
Модератор: Модераторы
begin
Timer2.Enabled := False; // остановить таймер
Label4.Visible := False;
if Edit1.Text = '1-1000' then
Label4.Visible := True;
end;
Nastasya писал(а):После нажатия на Enter манипуляции с полем Edit заканчиваются
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
If Key = #13 Then
label4.Visible:=True;
end;
Nastasya писал(а):Lazarus ругается
Вернуться в Помощь за вознаграждение
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1