FocusControl - Dica 11 revista Clube Delphi n� 60

Question

Oi pessoalQuando um TDBEdit recebe o foco existe um TLabel associado a ele pela propriedade FocusControl, gostaria de fazer uma fun��o generica, mas com acessar o Tlabel se s� tenho o TDBEdit. No exem...

Marcelo Saviski · Answer

vc tb poderia deixar o label com um nome parecido com o DBEdit, tipo

Nome DBEdit = edtNome
Nome Label = lblNome

ai vc procuraria o label assim:

var
  Label: TComponent;
  NomeComp: string;
begin
  NomeComp := ActiveControl.Name;
  NomeComp := Copy(3, Length(NomeComp) - 3);
  Label := FindComponent(�lbl� +NomeComp);
  if Label is TLabel then
    with TLabel(Label) do
    begin
      Font.Style := [sBold];
    end;
end;

n�o testei

Frcjf · Answer

Caro MarceloGrato pela aten��o, mas desta maneira teria muito trabalho renomeando os componentes, ou at� poderia deixar os nomes padr�es que daria certo, mas minha id�a era descobrir o seguinte, se voc� coloca o caracter �&� no label e quando em execu��o voc� pressiona ALT e a �X� por exemplo o foco cai no controle da� queria descobrir o comando que ao receber o foco ele descobrisse qual label esta associado...valeuFl�vio...

Beppe · Answer

S� tem um label associado com cada edit?

Atribua a todos os OnEnter�s este manipulador:

procedure TForm1.Edit1Enter(Sender: TObject);
var
  I: Integer;
  L: TLabel;
begin
  for I := 0 to TControl(Sender).Parent.ControlCount - 1 do
    if (TControl(Sender).Parent.Controls[I] is TLabel) then
    begin
      L := TLabel(TControl(Sender).Parent.Controls[I]);
      if L.FocusControl = Sender then
      begin
        // L � o label associado
        Exit;
      end;
    end;
end;

O problema � que o c�digo executa mesmo que o foco tenha sido dado com o mouse.

F�rum FocusControl - Dica 11 revista Clube Delphi n� 60 #271314