[DELPHI] DBEdit – z du?żej litery

0

Jak zmusić DBEdit, żeby tylko pierwszy znak był wpisywany z dużej litery, bez naciskania Shifta lub Caps Locka.--Pozdrowienia dla całego FORUM !

Marco_99

0

Nie mam DB ale moze w jakims OnKeypress sprawdzac czy wpisywana jest akurat 1-sza litera i kowertowac na duza--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

Zobacz na stronie www.softsale.com.pl w dziale porady "Zmiana tylko pierwszej litery z małej na dużą przy edycji".

Pozdrawiam.

--Andrzej Górniak
[email protected]

0

Dzięki za odpowiedzi i naprowadzenie, już mam !

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin
with Sender as TDBEdit do
begin
if(SelStart=0) or (Text[SelStart]=' ') then
if Key in ['a'..'z'] then key:=UpCase(Key);
end;
end;
--Pozdrowienia dla całego FORUM !

Marco_99

1 użytkowników online, w tym zalogowanych: 0, gości: 1