регистр букв в Edit

[a_n_n_a]

дело в том, что в этом же Edit'e у меня на OnChange идет поиск значения из Edit'a в БД))
А в БД в нужном поле все записи с большой буквы (так надо), и, если сразу не ввести в Edit с большой, то все зацикливается))
Короче, может я и намутила, но в Edit мне надо сразу с большой)))

[GetMax]

Попробуйте так. Реагирует на нажитый Shift и Capslock

function ShiftDown:Boolean;
var
  State:TKeyboardState;
begin
  GetKeyboardState(State);
  ShiftDown:= ((State[vk_Shift] and 128) <> 0);
end;
function Caapslock:Boolean;
var
  KS: TKeyboardState;
begin
   GetKeyboardState( KS );
   if KS[020] and 1 = 1 then CaapsLock:=True
                        else CaapsLock:=False
End;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    If (ShiftDown) or (CaapsLock) then
    Key:=Key
    else
    Key:=chr(0)
end;

[BARNEY]

вам нужно поиск сделать?

я так понимаю.... поднимите в вехний регистр что ищите и что вводите в запросе. И не каких проблем не будет.

[lexaltd]

В событии OnChange загоняй Edit1.Text в переменую string , делай первый символ верхнего регистра и эту переменую используй для БД

Вот пример набросал как пример - можеш по другому

procedure TForm1.Edit1Change(Sender: TObject);
var
s, s2 : string;
begin
 if Length(Edit1.Text) > 0 then
  begin
   s := Edit1.Text;
   s2 := Edit1.Text;
   s2 := AnsiUpperCase(s2[1]);
   Delete(s,1,1);
   s := s2 + s; //Переменую s используй для БД , а не Edit1.Text
   //ShowMessage(s);
  end;
end;

[vershik]

Код преобразования первой буквы в заглавную!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TEdit do
    if (SelStart = 0) or
       (Text[SelStart] = ' ') then
    begin
       Case Key Of
          'a'..'z' : Key := Chr(Ord('A') + Ord(Key) - Ord('a'));
          'а'..'я' : Key := Chr(Ord('А') + Ord(Key) - Ord('а'));
       end;
    end;
end;

[Stilet]

Код преобразования первой буквы в заглавную!

Для Виндовса предложение не самое удачное. Есть функции, которые это делают.
Да и в Лазарусе пожалуй эти функции сработают лучше чем твой пример

[Aliens_wolfs]

Самый просенький примерчик сразу проверяет первую букву если она с маленькой то переводит ee в заглавную букву, можно доработать если нужно курсор переводится в конец строки

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text <> '') and (Edit1.Text[1] = ansiLowerCase(Edit1.Text[1])) then
begin
Edit1.Text:=AnsiUpperCase(Edit1.Text[1])+copy(Edit1.Text, 2, maxint);
Edit1.SelStart:=Length(Edit1.Text);
end;
end;

Может поигодиться вам

[DelhiProgramer]

procedure TForm1.Edit1Change(Sender: TObject);
var
fb,ob: string;
begin
if length(edit1.Text)>0 then
begin
fb:=copy(edit1.Text,1,1);
ob:=copy(edit1.Text,2,length(edit1. Text)-1);
fb:=UpperCase(fb);
edit1.Text:=fb+ob;
edit1.SelStart:=length(edit1.Text);
end;
end;
Очень криво и указатель всё-время будет перемещаться в конец, однако если этого не делать буквы будут добавляться сначала а не сконца

[mansuetudo]

Насколько я поняла, сейчас при вводе любого по порядку символа в Edit идёт проверка, первы это символ в строке или нет. Если не первый - то тогда, независимо от того, что ввели, регистр ставится маленький. Выход вижу в том, чтоб убрать else и всё, что к нему относится.

Добавлю. Чтобы не пыталось проверять каждый символ, можно ввесит в программу глобальную булевскую переменную. При старте программы, скажем, ставим её в False, при вводе в Edit проверяем её состояние, если False - то выполняем проверку символа и замену (а также изменяем значение переменной на True), если True - нет.

[Stilet]

Не надежнее ли так?

procedure TForm2.Edit1Change(Sender: TObject);
begin
 with TEdit(Sender) do begin
  Tag:=SelStart+1;
  if (Text<>'') and IsCharLower(text[1])
   then Text:=AnsiUpperCase(Text[1])+Copy(Text,2,Length(Text));
  SelStart:=tag;
 end;
end;