ограничение ввода на Edit

← →
dj0n © (2005-11-03 14:49) [0]

Как можно сделать ограничение ввода на Edit, допустим вводить только буквы или только цифры, и переделывать первую букву на заглавную???

← →
Lexer © (2005-11-03 14:53) [1]

а причем тут paradox?

← →
stone © (2005-11-03 14:55) [2]

> dj0n © (03.11.05 14:49)

Обрабатывать OnKeyPress

← →
Lexer © (2005-11-03 14:58) [3]

>Обрабатывать OnKeyPress

ну тогда уж лучше OnChange...

← →
erika © (2005-11-03 15:17) [4]

с проверкой аски кода

← →
dj0n © (2005-11-03 15:22) [5]

А где можно про это почитать более конкретно?

← →
dj0n © (2005-11-03 15:29) [6]

Это то я и сам догадываюсь что через это надо делать, вот только как??

← →
Leonid Troyanovsky © (2005-11-03 15:40) [7]

> dj0n © (03.11.05 15:22) [5]
> А где можно про это почитать более конкретно?

http://groups.google.com/group/borland.public.delphi.vcl.components.writing/msg/41b62f85dd405cdf

--
Regards, LVT.

← →
dj0n © (2005-11-03 16:01) [8]

ОО!! большое спасибо, то что доктор прописал!
А как сделать чтобы первая вводимая буква переделывалась в заглавную при вводе ???

← →
kukuikar © (2005-11-03 16:02) [9]

а TMaskEdit не пойдет?

← →
dj0n © (2005-11-03 16:04) [10]

придется очень много переделывать

← →
dj0n © (2005-11-03 16:16) [11]

А как сделать чтобы первая вводимая буква переделывалась в заглавную при вводе ???

← →
Fay © (2005-11-03 16:19) [12]

2 dj0n © (03.11.05 16:16) [11]
procedure TFilteredEdit.KeyPress(var Key: Char);

а дальше что??

> dj0n © (03.11.05 16:26) [13]
> а дальше что??

VCL Reference
Copy, Chr, SelStart, SelLength example

See also: AnsiUpperCase

--
Regards, LVT.

Всеравно ничего не понял ;(

У меня есть ограничение по нажатию кнопки:

procedure TForm2.Edit24KeyPress(Sender: TObject; var Key: Char);
begin
if Key In ["А".."я", #8] Then // #8 = backspace
inherited
Else
Key := #0

end

как мне сюда сделать чтобы первая вводимая буква автоматически становилась заглавной??

> dj0n © (03.11.05 17:03) [16]
> Всеравно ничего не понял ;(

Получается, зря все старались.

Ну, ладно, списывай (cумеешь?):
{Edit1.OnChange} procedure TForm1.Edit1Change(Sender: TObject); var ss: Longint; oc: TNotifyEvent; begin with Sender as TEdit do begin if Length(Text) = 0 then Exit; ss := SelStart; oc := OnChange; OnChange := nil; try Text := AnsiUpperCase(Text[1])+ Copy(Text, 2, Length(Text)); finally OnChange := oc; SelStart := ss; end; end; end;
--
Regards, LVT.

ОООО!!!! Большое спасибочки, то что надо!! ;)

ограничение ввода на Edit Найти похожие ветки