Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c