Работа с кнопками.

[dan582107]

я новичок.
Пишу программу.
В моей программе 3 - 4 кнопки.
Нужно чтоб они через какое то время сами нажилась.(примерно через 3 сек после запуска программы)

[Stilet]

Кидаешь таймер на форму. Выставляешь ему свойство Interval=3000 (Это в миллисекундах). Далее его свойство Enabled активируешь.
В таймере пиши

 Buttin1.Click; // Это программный клик на кнопку1

[dmitriegorovih]

Значит так кидаете на форму timer с закладки "System" потом я думаю вы знаете кде находяться кнопки в инспекторе задач в timer1 interval пишете 3000 то есть три тысячи миллисекунд, потом двойным щелчком по таймеру появиться вот это

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

Туда и вставите вот это

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.Click;
button2.Click;
button3.Click;
button4.Click;
timer1.Enabled:=false;
end;

Вот балин опоздал трошки

[Sparkman]

Сдернуто из Delphi world

Автоматически нажимающаяся кнопка
--------------------------------------------------------------------------------

Этот компонент представляет из себя кнопку, на которую не надо нажимать, чтобы получить событие OnClick. Достаточно переместить курсор мышки на кнопку. При создании такого компонента традиционным способом, требуется довольно много времени, так как необходимо обрабатывать мышку, перехватывать её и т.д. Однако результат стоит того!

Предлагаю взглянуть на две версии данного компонента. В более простой версии обработчик перемещения мышки просто перехватывает сообщения Windows с нужным кодом и вызывает обработчик события OnClick:

type
  TAutoButton1 = class(TButton)
  private
    procedure WmMouseMove(var Msg: TMessage); message wm_MouseMove;
end;

procedure TAutoButton1.WmMouseMove(var Msg: TMessage);
begin
  inherited;
  if Assigned(OnClick) then
    OnClick(self);
end;

Вторая версии имеет больше исходного кода, так как в ней я просто пытаюсь повторить событие мышки OnClick когда пользователь перемещает мышку над кнопкой либо по истечении определённого времени. Далее следует объявление класса:

type
  TAutoKind = (akTime, akMovement, akBoth);

  TAutoButton2 = class(TButton)
  private
    FAutoKind: TAutoKind;
    FMovements: Integer;
    FSeconds: Integer;
    // really private
    CurrMov: Integer;
    Capture: Boolean;
    MyTimer: TTimer;
    procedure EndCapture;
    // обработчики сообщений
    procedure WmMouseMove (var Msg: TWMMouse); message wm_MouseMove;
    procedure TimerProc (Sender: TObject);
    procedure WmLBUttonDown (var Msg: TMessage); message wm_LBUttonDown;
    procedure WmLButtonUp (var Msg: TMessage); message wm_LButtonUp;
  public
    constructor Create (AOwner: TComponent); override;
  published
    property AutoKind: TAutoKind read FAutoKind write FAutoKind default akTime;
    property Movements: Integer read FMovements write FMovements default 5;
    property Seconds: Integer read FSeconds write FSeconds default 10;
end;

Итак, когда курсор мышки попадает в область кнопки (WmMouseMove), то компонент запускает таймер либо счётчик количества сообщений о перемещении. По истечении определённого времени либо при получении нужного количества сообщений о перемещении, компонент эмулирует событие нажатия кнопкой.

procedure TAutoButton2.WmMouseMove (var Msg: TWMMouse);
begin
  inherited;
  if not Capture then
  begin
    SetCapture (Handle);
    Capture := True;
    CurrMov := 0;
    if FAutoKind <> akMovement then
    begin
      MyTimer := TTimer.Create (Parent);
      if FSeconds <> 0 then
        MyTimer.Interval := 3000
      else
        MyTimer.Interval := FSeconds * 1000;
      MyTimer.OnTimer := TimerProc;
      MyTimer.Enabled := True;
    end;
  end
  else // захватываем
  begin
    if (Msg.XPos > 0) and (Msg.XPos < Width) and (Msg.YPos > 0) and (Msg.YPos < Height) then
    begin
      // если мы подсчитываем кол-во движений...
      if FAutoKind <> akTime then
      begin
        Inc (CurrMov);
        if CurrMov >= FMovements then
        begin
          if Assigned (OnClick) then
            OnClick (self);
          EndCapture;
        end;
      end;
    end
    else // за пределами... стоп!
      EndCapture;
  end;
end;

procedure TAutoButton2.EndCapture;
begin
  Capture := False;
  ReleaseCapture;
  if Assigned (MyTimer) then
  begin
    MyTimer.Enabled := False;
    MyTimer.Free;
    MyTimer := nil;
  end;
end;

procedure TAutoButton2.TimerProc (Sender: TObject);
begin
  if Assigned (OnClick) then
    OnClick (self);
  EndCapture;
end;

procedure TAutoButton2.WmLBUttonDown (var Msg: TMessage);
begin
  if not Capture then
    inherited;
end;

procedure TAutoButton2.WmLButtonUp (var Msg: TMessage);
begin
  if not Capture then
    inherited;
end;

[dan582107]

Stilet,dmitriegorovih
Спасибо но не работает =)
Sparkman - Спасибо но сильно много строчек

[DIgorevich]

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

Stilet,dmitriegorovih
Спасибо но не работает =)

А в чем ошибка (что пишет)? Или не работает действие, которое должно происходить по нажатию?

[Stilet]

Спасибо но не работает =)

Дык на это и надеемся )))))
Разобрался почему не работает?

[dan582107]

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

Дык на это и надеемся )))))
Разобрался почему не работает?

Вроде как бы нет

[dmitriegorovih]

Спасибо но не работает =)

Забыл сказать надо в инспекторе задач выставить Enabled в false, а на он криат написать вот это

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

[dan582107]

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

Забыл сказать надо в инспекторе задач выставить Enabled в false, а на он криат написать вот это

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

Вот с этим работает СпАсИбО