Código Delphi [-] procedure TForm.LabelClick(Sender: TObject); begin if Sender is TLabel then with Sender as TLabel do if Assigned(FocusControl) and FocusControl.CanFocus then FocusControl.SetFocus; end;
procedure TForm.LabelClick(Sender: TObject); begin if Sender is TLabel then with Sender as TLabel do if Assigned(FocusControl) and FocusControl.CanFocus then FocusControl.SetFocus; end;