Платные хостинги     Раскрутка сайта     Книги по программированию

OnClick, sender......, Не могу разобраться....

- можно в TNewClass сделать обработчик OnClick для кнопки и из него уже Sender передавать равный Self, т.е.:Код TNewClass = class...Button: TButton;FClick: TNotifyEvent;procedure BtnClick(Sender: TObject);procedure SetClick(Value: TNotifyEvent);property OnClick: TNotifyEvent read FClick write SetClick;constructor Create;...end;...constructor Create;begin   inherited;...   Button.OnClick :=  BtnClick;end;procedure SetClick(Value: TNotifyEvent);begin  FClick := Value;end;procedure BtnClick(Sender: TObject);begin  FClick(Self);end;highlightSyntax('delphiMGYyMG','delphi');может где в коде есть ошибки, но суть верная

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD