Мигание кнопки SpeedButton

[Valera]

Добрый день.

Нужно, чтобы при нажатии на SpeedButton кнопка подмигивала некоторое время либо меняя цвет, либо фаску, а по истечении какого-то времени подсветилась одним цветом, отличным от цвета подмигивания.

[Hacker19_90]

Обрабатывайте событие OnClick;
Добавте Timer! И какую-нибудь глоб. переменную значение которой будете изменять по срабатыванию таймера до опр. значения(определит время мигания).
Ну а закрасить можно через канву(помоему)!

[Stilet]

Ну а закрасить можно через канву(помоему)!

Разве канва есть у кнопок?
Тут ИМХО только переопределить класс кнопки:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls;

type
  TSpeedButton=class(Buttons.TSpeedButton)
   procedure wmp(var m:TWMPaint);message WM_PAINT;
  end;
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{ TSpeedButton }

procedure TSpeedButton.wmp(var m: TWMPaint);
var c:TCanvas;
begin
if tag=0 then
 inherited
else begin
 c:=TCanvas.Create;
 c.Handle:=m.DC;
 c.Brush.Color:=clred;
 c.FillRect(ClientRect);
 c:=nil;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SpeedButton1.Repaint;
 SpeedButton1.Tag:=not SpeedButton1.Tag;
end;

end.

[Sanprof]

можно примерно так помигать

var
  i: integer = 0;

implementation
......

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  if i <> 10 then
  begin
    if SpeedButton1.Flat = false then
      SpeedButton1.Flat := true else
      SpeedButton1.Flat := false;
    inc(i);
  end else
  Timer1.Enabled := false;
end;

[Hacker19_90]

Разве канва есть у кнопок?

С: TControlCanvas;
C.Control := Button1;
Вот те канва

[Stilet]

Hacker19_90

Я в том смысле что по умолчанию она у кнопок не предусмотренна в качестве свойства.

[Hacker19_90]

Сообщение от Stilet

Я в том смысле что по умолчанию она у кнопок не предусмотренна в качестве свойства.

Ну мало ли не предусмотрена!

[GunSmoker]

Сообщение от Stilet

Разве канва есть у кнопок?

TSpeedButton - не виндовый контрол, а наследник TGraphicControl, поэтому канва у неё есть по-определению. Другое дело, что она protected.

type
  TDSB = class(TSpeedButton);

procedure TForm99.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TDSB(SpeedButton1).Canvas.Brush.Style := bsSolid;
  TDSB(SpeedButton1).Canvas.Brush.Color := clWhite;
  TDSB(SpeedButton1).Canvas.FillRect(Rect(0, 0, SpeedButton1.Width, SpeedButton1.Height));
end;

[Stilet]

Другое дело, что она protected.

Ладно, не будем разжигать битву буквочек, в любом случае ответы на вопрос даны, автору остается только правильно их понять.

[Valera]

Спасибо всем. Буду разбираться.