Transform uniDBEdit to upperCase

[Alessandro]

Hello,

Throughout my project, Edits and DBEdits have the property CHARCASE as ecNORMAL.

It has some form, command or script to activate at once, throughout the project, so that the Edits are UpperCase, LowerCase or Normal (at runtime).

 

Thank you

[Sherzod]

Hi,

 

Maybe you wanted like this?

For example for UniDBEdits:

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TUniDBEdit then
      TUniDBEdit(Components[I]).CharCase := ecUpperCase; //
end;

Best regards,