Jump to content

Transform uniDBEdit to upperCase


Alessandro

Recommended Posts

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

Link to comment
Share on other sites

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,

  • Upvote 1
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...