нажатие на кнопку

[admroot]

подСкажите пожалуйста процедуру, что бы при нажатии на кнопку выполнялось одно действие, а если нажать на эту же кнопку повторно, то другое действие. Это вообще возможно в Delphi?

[_-Re@l-_]

Можно юзать какую-нить переменную, for example:

Procedure TForm1.Button1Click(Sender: TObject);
Var 
     N:Integer;
Begin
        If N = 1 Then 
        Begin
                Inc(N);
                ShowMessage('Hello');
        End;
        If N = 2 Then
        Begin
                Dec(N);
                ShowMessage('Bye');
        End;
End;

[Stilet]

Да конечно, но в разных ситуациях оптимальность разных методов различна, и каждый метод хорош только для своей ситуации.
Например можно хранить массив процедур. При нажатии на кнопку передать выполнение очередному элементу массива, и переместить индекс массива на следующий.
А можно просто CASE проверять число кликов, и выполнять по условиям.
Короче все от задачи зависит.

[vasek123]

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

подСкажите пожалуйста процедуру, что бы при нажатии на кнопку выполнялось одно действие, а если нажать на эту же кнопку повторно, то другое действие. Это вообще возможно в Delphi?

Ну, подобное можно например реализовать так(простенький пример):

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  f:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if f then
  begin
    Memo1.Lines.Add('Новая строка');
    f:=false;
  end
  else
    Memo1.Lines.Clear;
end;

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

end.

[_-Re@l-_]

Тож самое, vasek123

[DomiNick]

подСкажите пожалуйста процедуру, что бы при нажатии на кнопку выполнялось одно действие, а если нажать на эту же кнопку повторно, то другое действие. Это вообще возможно в Delphi?

Слишком туманное описание ТЗ.....

Можно юзать какую-нить переменную, for example:

Эм... А ничё что она у вас локальная, да ещё и неинициализированная? ))

Как вариант:

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

...

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick:=ButtonFirstProc;
end;

procedure TForm1.ButtonFirstProc(Sender: TObject);
begin
TButton(Sender).OnClick:=ButtonSecondProc;
ShowMessage('First proc');
end;

procedure TForm1.ButtonSecondProc(Sender: TObject);
begin
TButton(Sender).OnClick:=ButtonFirstProc;
ShowMessage('Second proc');
end;

[_-Re@l-_]

Эм... А ничё что она у вас локальная, да ещё и неинициализированная? ))

А ничё что это пример кода??

[Stilet]

Эй, господа, не сорьтесь.
Давайте дождемся автора.

[admroot]

Всем огромнейшее спасибо за оперативность. Вариант от _-Re@l-_ оказался мне более простым и понятным для моей супер простой задачи, извиняюсь что

DomiNick туманно написал

только почему то не работает:

Procedure TForm1.Button1Click(Sender: TObject);
Var 
     N:Integer;
Begin
        If N = 1 Then 
        Begin
                Inc(N);
                ShowMessage('Hello');
        End;
        If N = 2 Then
        Begin
                Dec(N);
                ShowMessage('Bye');
        End;
End;

vasek123 а можно с зацикливанием repeat until наверно, что б нажал, появилась строка, нажал очистилась, нажал - появилась и т д:

procedure TForm1.Button2Click(Sender: TObject);
begin
Repeat

  if f then
  begin
    Memo1.Lines.Add('Новая строка');
    f:=false;
  end
  else
    Memo1.Lines.Clear;

    Until (???);
end;

DomiNick а что это за процедуры?

    procedure ButtonFirstProc(Sender: TObject);
    procedure ButtonSecondProc(Sender: TObject);

[XeruH]

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

Эм... А ничё что она у вас локальная, да ещё и неинициализированная? ))

Локальные переменные как-раз инициализируются!