Повторное нажатие

[HTTqp]

Как предотвратить частое нажатие на кнопку, пробовал через sleep(), но не то, говорят через таймер не могу понять как, если требуется например не на 1 а на несколько кнопок такой запрет сделать. Может кто подскажет?

[StriderX]

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

Как предотвратить частое нажатие на кнопку, пробовал через sleep(), но не то, говорят через таймер не могу понять как, если требуется например не на 1 а на несколько кнопок такой запрет сделать. Может кто подскажет?

Увы, абсолютно не умею работать с VCL и всем, что с ним связано. Могу предложить только иллюстрацию одного из стандартных подходов.
Если бы мне сильно было надо, то копал бы в сторону написания наследника кнопки дабы экранировать reuse от прямого доступа. Это позволит прозрачно реагировать на попытки оперирования с Enable во время работы reuse.
PS: возможно существуют встроенные в VCL механизмы и я написал полный бред =-)

[Stilet]

предотвратить частое нажатие на кнопку

А можно пример ситуации?

[doktor255]

unit Unit1;

interface

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

type
  ModButton = record
    Button: TButton;
    Timer: TTimer;
  end;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ModButtons: Array [0..2] of ModButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 for i := Low(ModButtons) To High(ModButtons) do
   begin
     ModButtons[i].Button := TButton.Create(Owner);
     ModButtons[i].Button.Parent := Form1;
     ModButtons[i].Button.Top := 10;
     ModButtons[i].Button.Left := 10 +  i * 100;
     ModButtons[i].Button.Caption := 'Button' + IntToStr(i);
     ModButtons[i].Button.Tag := i;
     ModButtons[i].Button.OnClick := Button1Click;
     ModButtons[i].Timer := TTimer.Create(Owner);
     ModButtons[i].Timer.Interval := 1000;
     ModButtons[i].Timer.OnTimer := Timer1Timer;
     ModButtons[i].Timer.Tag := i;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with (Sender as TButton) do
    begin
      Enabled := false;
      ModButtons[Tag].Timer.Enabled := true;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  With (Sender as TTimer) do
    begin
      Enabled := false;
      ModButtons[Tag].Button.Enabled := true;
    end;
end;

end.

[phomm]

doctor255, полагаю, стоит чуть поправить код

ModButtons[i].Button := TButton.Create(Self);
ModButtons[i].Button.Parent := Self;
...
ModButtons[i].Timer := TTimer.Create(Self);

Поскольку Owner в данном случае это Form1.Owner , который есть Application. А Form1 - привязка к имени глобальной переменной, которая в случае динамического создания формы вполне может быть невалидна.

[doktor255]

phomm Спасибо, учту.