Покажите пожалуйста, как можно сделать так, чтобы в компонент 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;
Cheburashka
12.07.2010 18:09
Unconnected, что-то я про onChange совсем забыл Благодарю за помощь!
volvo
12.07.2010 18:25
Все проще:
Edit1.ReadOnly := True;
, и попробуй что-нибудь напечатать или вставить из Clipboard-а
Cheburashka
12.07.2010 20:32
volvo, действительно Даа... мне ещё учиться и учиться
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.