VPF::Как отреагировать на повторное нажатие кнопки?

Dobermann

Дата 23.6.2009, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

Покажите пример как реагировать на повторное нажатие кнопки...ваще не шарю! smile

Например, при повторном нажатии кнопки ускорить в 2 раза progressbar... smile

Вообщем вопрос в том как создать событие на повторное(последующее) нажатие кнопки...

Данкинг

Дата 23.6.2009, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Глобальную переменную заведи, и при каждом нажатии кнопки увеличивай её значение.

--------------------

There's nothing left but silent epitaphs.

Dobermann

Дата 23.6.2009, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

А...блин...точно...пасиб smile

kami

Дата 23.6.2009, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Код


procedure TForm1.Button1click(Sender:TObject);
begin
  if TComponent(Sender).Tag=0 then
    begin
      // это первое нажатие на кнопку
      // делаем, что нужно
      TComponent(Sender).Tag:=1;
    end
  else
    begin
      // это второе нажатие на кнопку
      // делаем, что нужно
      TComponent(Sender).Tag:=0;
    end;
end;

1000000dollars

Дата 24.6.2009, 11:04 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 6.10.2007

Репутация: нет
Всего: 8

Как вариант - можно поменять обработчик

Код


unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click2(Sender: TObject);
 begin
  ShowMessage ('Second!');
 end;
procedure TForm1.Button1Click(Sender: TObject);
 begin
  ShowMessage ('First!');
  (Sender as TButton).OnClick := Self.Button1Click2;
 end;
end.

Dobermann

Дата 29.6.2009, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

kami,
1000000dollars, во, я это и имел ввиду! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »