Перевод в верхний регистр первого вводимого символа
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (DBEdit1.SelStart = 0) then
Key := upCase(Key);
end;
|
Или для Edit:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TEdit do
if (Text = '') or (Text[SelStart] = ' ')
or (SelLength = Length(Text)) then
if Key in ['a'..'z'] then
Key := UpCase(Key);
end;
|
|
|
|
|
Бухгалтерский центр услуги для ооо. ООО Бизнес Перспектива. Бухгалтерские услуги. . беременность приметы как забеременеть . эвакуатор вао . Принтеры и Мфу HP - большой выбор: мфу hp для офиса. . |
