Essa função funciona também com todos os objetos que possuem a propriedade color. Geralmente é usada para chamar a atenção do usuário ao campo que está com foco.
Declare esta função entre as funções de comandos dos objetos e as privates, exemplo:
Depois disso, na aba "Events" de cada objeto selecione em OnEnter = entra_cor e OnExit = sai_cor.
Technorati Tags: delphi, edit, muda cor, memo, função, foco
Declare esta função entre as funções de comandos dos objetos e as privates, exemplo:
Type
...
procedure entra_cor(Sender: TObject);
procedure sai_cor(Sender: TObject);
private
...
procedure entra_cor(Sender: TObject);
begin
//Este if é necessário caso você queira utilizar a mesma função para tipos diferentes de objetos
if (Sender is TEdit) then
(Sender as TEdit).Color := RGB(255,255,200);//Caso não queira utilizar amarelo como cor de foco, basta modificar os parâmetros na função RGB
if (Sender is TMemo) then
(Sender as TMemo).Color := RGB(255,255,200);
end;
procedure sai_cor(Sender: TObject);
begin
if (Sender is TEdit) then
(Sender as TEdit).Color := RGB(255,255,255);
if (Sender is TMemo) then
(Sender as TMemo).Color := RGB(255,255,255);
end;
Depois disso, na aba "Events" de cada objeto selecione em OnEnter = entra_cor e OnExit = sai_cor.
Technorati Tags: delphi, edit, muda cor, memo, função, foco
Comentários