Контроль кликов по button

[Smitt&Wesson]

Если вы так не любите глобальные переменные, у каждой кнопки и у каждой формы есть переменная tag. Используйте её. Она и не глобальная как-бы, в то-же время доступна из любого места программы.

[GSirr]

у каждой кнопки и у каждой формы есть переменная tag

При чем тут это? Вообще мимо обсуждаемой темы.

[GSirr]

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

unit Main;

interface

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

type
  TfrmMain = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    edt1: TEdit;
    procedure IncProperty(Sender: TObject);
  private
    { Private declarations }
    FCounter: Integer;
    procedure SetCounter(AValue: Integer);
  public
    { Public declarations }
    property Counter: Integer read FCounter write SetCounter;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.IncProperty(Sender: TObject);
begin
  Counter := Counter + 1;
end;

procedure TfrmMain.SetCounter(AValue: Integer);
begin
  FCounter := AValue;
  edt1.Text := IntToStr(AValue);
end;

end.

[Аватар]

Зачем вообще св-во Counter в данном случае? Переменной FCounter мало? Или к свойству Counter нужен доступ из других форм?

procedure TfrmMain.IncProperty(Sender: TObject);
begin
  Inc(FCounter);
  edt1.Text := IntToStr(FCounter);
end;

[GSirr]

Ок, а вдруг? Почему нет? С public property какая-то беда, как с глобальными переменными? Да и вообще, любое Private поле лучше оформлять как property. Потом код начинает проще относиться к изменением, знаете ли. А уж зону видимости настраивать как того задачи желают. Благо IDE позволяет без труда (напомню, вдруг кто не знает: ctrl + shift + c) генерировать болванки кода.

[Пепел Феникса]

С public property какая-то беда, как с глобальными переменными?

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

[Аватар]

Да и вообще, любое Private поле лучше оформлять как property

Чем лучше? В форме или любом другом объекте в Private может быть далеко не одна переменная, используемая в методах и только в них. Их тоже все в свойства выносить?

Потом код начинает проще относиться к изменением, знаете ли

Что меняется к лучшему в коде от использования свойства вместо переменной? Вижу только необоснованное увеличение кол-ва методов

[GSirr]

да нет, просто если оно не надо, то зачем?)

Логично
На самом деле можно долго спорить. И прав не будет никто. Ибо это - аспекты реализации. Я могу сказать - а вдруг пригодится в будущем? Ты можешь сказать - а зачем это надо? Аватар может сказать что, если отказаться от property, будет меньше кода. Кто-то еще может сказать что-то еще.
Я просто постараюсь пояснить, чем мне нравятся property в классах формы. Я думаю, вы поймете следующий код:

procedure TfrmMain.SetCounter(AValue: Integer);
begin
  FCounter := AValue;
  edt1.Text := IntToStr(AValue);
  Self.Caption := IntToStr(AValue);
  Self.Update;
end;

и т.п.
Т.е. можно контролировать изменения. Протоколировать. Ну, вобщем, делать все операции откуда угодно. И, если нам, к примеру потребуется где-то, кроме тех 20 кнопок, увеличивать Counter на 2, или 3, или 5 - у нас не будет проблем с изменением, скажем edt1.Text. Т.е. мое мнение - перестраховаться, сделав property. Я не прав?

[Пепел Феникса]

Т.е. можно контролировать изменения. Протоколировать. Ну, вобщем, делать все операции откуда угодно. И, если нам, к примеру потребуется где-то, кроме тех 20 кнопок, увеличивать Counter на 2, или 3, или 5 - у нас не будет проблем с изменением, скажем edt1.Text. Т.е. мое мнение - перестраховаться, сделав property. Я не прав?

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

[GSirr]

  private
    { Private declarations }
    FCounter: Integer;
    procedure SetCounter(AValue: Integer);
    property Counter: Integer read FCounter write SetCounter;
  public
    { Public declarations }    
  end;

Да и сеттер, property и filed можно сделать где угодно. Хоть в private, хоть protected, хоть public.
Если не прав, или если не так понял, объясни пож.