Cria��o de Componente: Com Foco, mas sem sele��o

Question

Como criar um componente como um bot�o que possa receber o foco mas que n�o tenha o contorno pontilhado quando est� com o foco?Quero criar um componente, com praticamente as mesmas caracter�sticas do ...

Raserafim · Answer

Quero apenas que ao receber o foco, n�o seja apresentado nenhuma mudan�a no bot�o, ou seja, n�o apare�a o pontilhado que o windows coloca ao redor do bot�o....

Beppe · Answer

O pontilhado faz parte da resposta padr�o do bot�o, n�o h� como evitar ele ser pintado, mas lembro que eu j� consegui remov�-lo.

Tem duas op��es: subclasseamento ou herdar um novo controle. Herdar um novo controle � mais f�cil.

type
  TButtonWithoutDots = class
  private
    procedure WMPaint(var Message: TWMPaint); WM_PAINT;
  end;

procedure TButtonWithoutDots.WMPaint(var Message: TWMPaint);
begin
  inherited;
  if Focused then
  begin
    Assert(Message.DC <> 0);
    DrawFocusRect(Message.DC, GetClientRect);
  end;
end;

Raserafim · Answer

Ataliba, fiz o seguinte para testar mas n�o deu certo:

Criei um novo componente herdando de TButton. Em sua declara��o Private coloquei o procedimento:
procedure WMPaint(var Message: TWMPaint); Message WM_PAINT;
tive que acrescentar o Message antes do WM_Paint pois dava um erro ao compilar.
Utilizei o COde COmpletation (Ctrl + Shift + C) para criar o esqueleto do procedimento, ent�o coloquei dentro:
inherited;
if Focused then
begin
Assert(Message.DC <> 0);
DrawFocusRect(Message.DC, GetClientRect);
Mas quando adiciono o componente e compilo o programa aparece um erro na classe EAssertionFailed e diz o n�mero da linha do erro, que � a c�digo:
Assert(Message.DC <> 0);

O que est� faltando Ataliba?

F�rum Cria��o de Componente: Com Foco, mas sem sele��o #196950