Форум: "Основная";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Вниз
ограничение ввода на 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 © (2005-11-03 16:26) [13]а дальше что??
← →
Leonid Troyanovsky © (2005-11-03 16:32) [14]
> dj0n © (03.11.05 16:26) [13]
> а дальше что??
VCL Reference
Copy, Chr, SelStart, SelLength example
See also: AnsiUpperCase
--
Regards, LVT.
← →
dj0n © (2005-11-03 16:38) [15]Всеравно ничего не понял ;(
У меня есть ограничение по нажатию кнопки:
procedure TForm2.Edit24KeyPress(Sender: TObject; var Key: Char);
begin
if Key In ["А".."я", #8] Then // #8 = backspace
inherited
Else
Key := #0
end
как мне сюда сделать чтобы первая вводимая буква автоматически становилась заглавной??
← →
dj0n © (2005-11-03 17:03) [16]Всеравно ничего не понял ;(
У меня есть ограничение по нажатию кнопки:
procedure TForm2.Edit24KeyPress(Sender: TObject; var Key: Char);
begin
if Key In ["А".."я", #8] Then // #8 = backspace
inherited
Else
Key := #0
end
как мне сюда сделать чтобы первая вводимая буква автоматически становилась заглавной??
← →
Leonid Troyanovsky © (2005-11-03 17:26) [17]
> 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.
← →
dj0n © (2005-11-03 17:28) [18]ОООО!!!! Большое спасибочки, то что надо!! ;)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.015 c
