Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.03;
Скачать: CL | DM;

Вниз

Первая заглавная буква во вводимом тексте   Найти похожие ветки 

 
Oleksiy   (2003-02-19 17:52) [0]

Всем привет. Подскажите кто-нить как в поле DBEdit сделать так, чтобы первый символ вводимой строки печатался заглавным, только без маски.


 
Игорь Шевченко ©   (2003-02-19 17:53) [1]

OnChange ?


 
mukha ©   (2003-02-19 20:59) [2]

Попробуй что-то типа этого...
procedure TForm1.Edit1Change(Sender: TObject);
var
S:string;
P, L: integer;
begin
Edit1.Text:=TrimLeft(Edit1.Text);
if Length(Edit1.text)=1 then
begin
P := Edit1.SelStart;
L := Edit1.SelLength;
S := Edit1.Text;
S[1] := AnsiUpperCase(S[1])[1];
Edit1.Text := S;
Edit1.SelStart := P;
Edit1.SelLength := L;
end;
end;

Подправь сам, хотя принцип понятен.



Страницы: 1 вся ветка

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
3-5379
serg1977
2003-02-11 16:08
2003.03.03
Создание БД MS ACCESS


14-5720
MBo
2003-02-14 17:38
2003.03.03
Pascal and its Successors - Niklaus Wirth


3-5436
Arkady
2003-02-12 12:52
2003.03.03
Сжатие Access


3-5439
Натик
2003-02-12 12:10
2003.03.03
QReport


1-5524
tv
2003-02-21 10:03
2003.03.03
RxRichEdit