Enfocar un botón al pasar el puntero del ratón

[[David]]

Al fin he conseguido crear el nuevo control , es cierto que tiene un evento OnMouseEnter y OnMouseLeave ,pero no sé como con estos eventos crear el efecto del que he hablado antes.

[keyboy]

Supongo que la idea de roman es que uses estos eventos para dibujar tú mismo el borde cuando pasas el ratón y borrarlo cuando sales. Lo que pasa es que no es tan fácil porque el SpeedButton no publica la propiedad Canvas que es la que te permite dibujar.

Pero puedes modificar la componente en sí para dibujar el borde desde la misma componente:

procedure TMySpeedButton.CMMouseEnter(var Msg: TMessage);
var
  R: TRect;
 
begin
  if not (csDesigning in ComponentState) then
  begin
	R := ClientRect;
	InflateRect(R, -1, -1);
	Canvas.Pen.Color := clYellow;
	Canvas.Pen.Width := 2;
	Canvas.Rectangle(R);
  end;
end;
 
procedure TMySpeedButton.CMMouseLeave(var Msg: TMessage);
begin
  Refresh;
 
  if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

Bye