 |
Delphi Tips & Tricks | softsale > Delphi Tips & Tricks |
| < poprzednia rada | następna rada > |
Zmiana tylko pierwszej litery z małej na dużą przy edycjiCzasami chcemy, żeby przy wprowadzaniu nazwisk lub imion zamieniać tylko pierwsze wprowadzone litery na duże. Generalnie może to dotyczyć dwóch przypadków: litery wprowadzonej do edita jako pierwszej oraz litery wprowadzonej po spacji. Jak to zrobić? Korzystamy tu z własności SelStart. Własność ta zwykle używana jest dla określenia początkowej pozycji zaznaczonego tekstu w elemencie edycyjnym. Może ona być wykorzystana do określenia bieżącej pozycji kursora również w przypadku kiedy nie zaznaczono tekstu. Jeżeli litera jest pierwszą wprowadzoną to SelStart ma wartość 0. Jeżeli naciśnięta została spacja, (rozpoznajemy to przez użycie Text[SelStart]), oznacza to, że rozpoczyna się nowy wyraz. W obu przypadkach należy zmienić małą literę na dużą. Odpowiedni kod umieszczamy oczywiście w obsłudze zdarzenia OnKeyPress komponentu TEdit.
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
with Sender as TEdit do
begin
if(SelStart=0) or (Text[SelStart]=' ') then
if Key in ['a'..'z'] then key:=UpCase(Key);
end;
end;
|
|
SOFTSALE - Oprogramowanie i Szkolenia softsale@softsale.com.pl 03-565 Warszawa , ul. Borzymowska 43 lok. 301C tel/fax:4084840,GSM:0607612428 |