Как можна сделать так, чтоб нельзя было бы редактировать Edit

← →
fast2 (2005-12-15 15:56) [0]

... но не использовать Edit.Enable:=false

← →
Vlad © (2005-12-15 16:00) [1]

> fast2 (15.12.05 15:56)

Edit.ReadOnly = true;

← →
Anatoly Podgoretsky © (2005-12-15 16:10) [2]

Зачем же тогда Эдит? Переводится как редактировать.

← →
x.pro (2005-12-15 16:34) [3]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
...
key := chr(0);
...
end;

← →
x.pro (2005-12-15 16:35) [4]

таким макаром можно запрещать вводить некоторые буквы. порой, весьма полезная штука!

← →
Плохиш © (2005-12-15 16:37) [5]

> x.pro (15.12.05 16:34) [3]

Ctrl + V

← →
x.pro (2005-12-15 16:46) [6]

>Плохиш © (15.12.05 16:37) [5]
У вас Ctrl+V вставляет текст при Key := chr(0) ??? странно, у меня не ничего не вставляет.

← →
Vlad © (2005-12-15 16:47) [7]

> x.pro (15.12.05 16:46) [6]

При Ctrl + V и не должен вставлять. А вот Copy/Paste (правой клавишей мыши) будет.
И удалять кнопкой Del тоже будет.

← →
x.pro (2005-12-15 16:51) [8]

да, Ваша взяла!

← →
IceBeerg © (2005-12-15 17:15) [9]

Вот еще вариант:
procedure TForm1.Edit1Change(Sender: TObject); begin Edit1.Text:="Бла-бла, вигвам!!!";//При любом изменении перезаписываем Edit необходимой нам строкой end;

← →
Vlad © (2005-12-15 17:27) [10]

> IceBeerg © (15.12.05 17:15) [9]

угу, только самому разработчику придется сильно извратиться, чтобы записать в этот Edit хоть что нибудь :-)

← →
IceBeerg © (2005-12-15 17:33) [11]

Vlad © (15.12.05 17:27) [10]
Да, естественно, но я дал просто идею... еще Edit можно перезаписывать значением из переменной например, вот.

← →
GuAV © (2005-12-15 20:37) [12]

Edit.Visible := False

← →
Джо © (2005-12-15 20:42) [13]

Edit.Free

← →
GuAV © (2005-12-16 00:41) [14]

Итак, постепенно приходим к тому, что Edit вообще не создавать.

← →
Anatoly Podgoretsky © (2005-12-16 09:13) [15]

> GuAV © (16.12.05 00:41) [14]
> Итак, постепенно приходим к тому, что Edit вообще не создавать

Точно. No woman - no cry :)

2 Anatoly Podgoretsky © (16.12.05 09:13) [15]
2 Германн © (16.12.05 14:58) [16]
А фот так фот...

и спец спасибо Германн © (16.12.05 14:58) [16] за ИзВеерг буду юзать иногда. :)))

Кидаем Edit на Panel1, потом Panel1.Enabled := False :)

Если совсем не нужно редактировать, то
TStaticText + BorderStyle=sbsSingle + Color=clWhite

> IceBeerg © (16.12.05 15:52) [18]
>
> и спец спасибо Германн © (16.12.05 14:58) [16] за ИзВеерг
> буду юзать иногда. :)))
>

Спец пожалуйста. Но только не забудь "запатентовать" на форуме ники ИзВеерг и ИзВерг! А то тут могут и перехватить, а потом ...? :-)

Как можна сделать так, чтоб нельзя было бы редактировать Edit Найти похожие ветки