Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Запрет ввода

Автор: Сергей Меркурьев 12.07.2010 17:06

Покажите пожалуйста, как можно сделать так, чтобы в компонент edit нельзя было вводить символы. А также чтобы был запрет на удаление и вставку чего-либо.

Автор: Unconnected 12.07.2010 17:35

Можно так:


var oldstr:string;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  edit1.text:=oldstr;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oldstr:=edit1.text;
end;

Автор: Сергей Меркурьев 12.07.2010 18:09

Unconnected, что-то я про onChange совсем забыл smile.gif Благодарю за помощь!

Автор: volvo 12.07.2010 18:25

Все проще:

Edit1.ReadOnly := True;
, и попробуй что-нибудь напечатать или вставить из Clipboard-а smile.gif

Автор: Сергей Меркурьев 12.07.2010 20:32

volvo, действительно smile.gif
Даа... мне ещё учиться и учиться smile.gif