Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можна сделать так, чтоб нельзя было бы редактировать Edit [D7, 95/98]

Страницы: 1 2 >
fast2 © (2005-12-15 15:56:00)
... но не использовать Edit.Enable:=false

Германн (2005-12-17 01:48:00) [1]

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

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

Наиль (2005-12-16 17:40:00) [2]
Если совсем не нужно редактировать, то
TStaticText + BorderStyle=sbsSingle + Color=clWhite

Sandman29 (2005-12-16 17:17:00) [3]
Кидаем Edit на Panel1, потом Panel1.Enabled := False :)

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

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

clickmaker (2005-12-16 15:06:00) [5]

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

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

Германн (2005-12-16 14:58:00) [6]

> Anatoly Podgoretsky © (16.12.05 09:13) [15]
>
> IceBeerg © (15.12.05 17:15) [9]
> Ну ты и злодей.

Не. Он ИзВеерг! :-)

Anatoly Podgoretsky (2005-12-16 09:13:00) [7]
IceBeerg © (15.12.05 17:15) [9]
Ну ты и злодей.

GuAV (2005-12-16 00:41:00) [8]
Итак, постепенно приходим к тому, что Edit вообще не создавать.

Джо (2005-12-15 20:42:00) [9]
Edit.Free

GuAV (2005-12-15 20:37:00) [10]
Edit.Visible := False

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

Vlad (2005-12-15 17:27:00) [12]

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

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

IceBeerg (2005-12-15 17:15:00) [13]
Вот еще вариант:
procedure TForm1.Edit1 Change(Sender: TObject); begin Edit1.Text:='Бла-бла, вигвам!!!';//При любом изменении перезаписываем Edit необходимой нам строкой end;

x.pro (2005-12-15 16:51:00) [14]
да, Ваша взяла!

Vlad (2005-12-15 16:47:00) [15]

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

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

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

Плохиш (2005-12-15 16:37:00) [17]

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

Ctrl + V

x.pro (2005-12-15 16:35:00) [18]
таким макаром можно запрещать вводить некоторые буквы. порой, весьма полезная штука!

x.pro (2005-12-15 16:34:00) [19]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
...
key := chr(0);
...
end;

Anatoly Podgoretsky (2005-12-15 16:10:00) [20]
Зачем же тогда Эдит? Переводится как редактировать.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »