Jump to content
Fórum Script Brasil
  • 0

Duvida Numa Procedure


phil_rpg

Question

estou implementando no onKeyPress dos meus TEdit e TMaskEdit o seguinte:

quando eu clico ou no enter ou no tab ele pula pra o proximo componente.

até ai tudo bem, já tenho isso feito.

meu pro é que eu to criando uma procedure que colori o TEdit ou TMaskEdit e deixa o texto em negrito(pra da um realse mais tchan no programa).isso tb não é o problema.

o problema é o seguinte:

pra não ter que criar uma procedure pra o TEdit e outra pra o TMaskEdit eu quero criar uma só que sirva para os dois.so que estou vendo que o problema todo é a questão do parametro e os atributos que essa classe poderia ter. como eu poderia resolver esse meu caso?tem alguma classe que poderia englobar isso?

vou postar aqui o codigo:

Procedure EcolorNext(var objeto: TCustomEdit);
begin
   with objeto do
      begin
         Font.Style := [fsBold];
         Color := clScrollBar;
      end;
end;

ps: como esqueci de mencionar,a classe TcustonEdit não possui os styles de font e opções de cores,eis ai meu problema.

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...