| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ограничение ввода на Edit [D5, Paradox]

dj0n ©   (2005-11-03 14:49:00) 

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

---

dj0n   (2005-11-03 17:28:00) [1]

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

---

Leonid Troyanovsky   (2005-11-03 17:26:00) [2]

> 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:03:00) [3]

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

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

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 16:38:00) [4]

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

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

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 16:32:00) [5]

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


VCL Reference
Copy, Chr, SelStart, SelLength example

See also: AnsiUpperCase

--
Regards, LVT.

---

dj0n   (2005-11-03 16:26:00) [6]

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

---

Fay   (2005-11-03 16:19:00) [7]

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

---

dj0n   (2005-11-03 16:16:00) [8]

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

---

dj0n   (2005-11-03 16:04:00) [9]

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

---

kukuikar   (2005-11-03 16:02:00) [10]

а TMaskEdit не пойдет?

---

dj0n   (2005-11-03 16:01:00) [11]

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

---

Leonid Troyanovsky   (2005-11-03 15:40:00) [12]

> 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 15:29:00) [13]

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

---

dj0n   (2005-11-03 15:22:00) [14]

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

---

erika   (2005-11-03 15:17:00) [15]

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

---

Lexer   (2005-11-03 14:58:00) [16]

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

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

---

stone   (2005-11-03 14:55:00) [17]

> dj0n ©   (03.11.05 14:49)  

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

---

Lexer   (2005-11-03 14:53:00) [18]

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

---

Наверх