Descobrir o componente que está com foco

E ae galera, beleza?

 

Mais uma vez trazendo pra vocês uma função básica, mas muito útil na hora de fazer uma navegação ou saída de validação.

 

A função é para sabermos o componente que está em foco, ou recebendo o foco que pode ser usado no OnExit de um componente por exemplo.

 

Caso de USO:

ShowMessage(Screen.ActiveControl.Name);

Está em um Edit onde existe uma validação no evento OnExit, porém permite mudar de ir para um botão sem que a validação seja executada.

if not (btnFechar.Focused)  then
begin
//Validação
end;

Porém ao clicarmos no botão “btnFechar” o sistema passa por um outro campo e acaba caindo na validação e não deixa ir pra o outro componente.

Para descobrirmos qual o componente que está indo o foco é muito simples, podemos colocar um SHOWMESSAGE do componente que está recebendo o foco antes de cair na validação. Exemplo:

ShowMessage(Screen.ActiveControl.Name);
if not (btnFechar.Focused)  then
begin
//Validação
end;

 

A função “Screen.ActiveControl.Name“, irá retornar o nome do componente que está recebendo o foco e com isso você consegue descobrir se realmente tinha que passar por ali ou adicionar o componente também na saída da validação.

Qualquer dúvida deixa nos comentários, quem puder se inscreve no canal, estamos falhos com os vídeos, mas logo voltarei a ativa no canal.

 

 

Anúncios

Camiseta Under Armour Sportstyle Logo – Centauro – R$ 69,99

💻#Centauro

➡ Camiseta Under Armour Sportstyle Logo

Link: http://compre.vc/v2/3749f565

💰 R$ 69,99

Utilize o CUPOM 15PRAVOCE para ganhar 15%OFF

Arrastar arquivos para aplicação [ TDropTarget ]

Fala galera, beleza ?

O componente que vamos tratar nesse post e que estará no vídeo é o DROPTARGET do FireMonkey.

Leia o resto deste post

Curso: Criando aplicativos móveis com Delphi – Aula 08

Boa Noite galera.

Está acontecendo agora a vídeo aula ao vivo da TDevRocks.

 

Copiar parte da string a partir do inicio ou fim (esquerda ou direita) + [Vídeo]

Fala galera beleza?

Leia o resto deste post

Mudar foco do Cursor no RichEdit + [Vídeo]

Fala galera, beleza?

Venho hoje trazer uma função muito simples pra galera que utiliza o RichEdit e precisa mandar o cursor para o fim do texto na navegação.

Junto com o post irá sair um vídeo com o desenvolvimento da rotina.

Inscreva-se no canal (Desenvolvedor Delphi)

Leia o resto deste post

Tem idade para aprender a desenvolver? Conheça a história de Pedro – 14 anos.

Nessa entrevista Pedro Carrijo de 14 anos conversa sobre sua motivação e interesse com desenvolvimento de software, também aborda os diversos projetos que ele vem desenvolvendo.

Fonte: Tem idade para aprender a desenvolver? Conheça a história de Pedro – 14 anos.

Verificar tipo do Campo no DataSet

As vezes precisamos fazer uma rotina na qual não sabemos ao exato o tipo do campo que virá e precisamos verificar para que não tenhamos problemas jogarmos a informação em um campo do tipo incorreto. Podemos utilizar conforme descrito no exemplo abaixo.
Leia o resto deste post

Utilizar Case com Strings (AnsiIndexStr)

Muitas vezes precisamos fazer validação de vários valores, na qual poderíamos utilizar o “CASE”, porém não conseguimos usar o simples “CASE” simples pra isso. Precisamos juntar o case com o AnsiIndexStr, conforme comando abaixo:

Leia o resto deste post

Tela (Form) em tela cheia cobrindo a barra de tarefas do Windows

Existem algumas aplicações que precisamos desenvolver que é necessário ficar com a tela cheia, cobrindo a barra de tarefas. Como é o caso quando estamos trabalhando em um PDV.

 

Para isso colocamos o seguinte código no OnShow ou no FormCreate.

begin
Align := AlNone;
AutoSize := False;
WindowState := wsNormal;
Top := 0;
Left := 0;
Width := Screen.Width;
Height := Screen.Height;
end;

%d blogueiros gostam disto: