1 Востаннє редагувалося Stanislav Stecenko (04.06.2015 21:35:23)

Тема: Delphi xe Click01(this sefl);

procedure TForm2.Click01(SB: TSpeedButton);


procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  Click01(SpeedButton1);
end;
...............................
procedure TForm2.SpeedButton64Click(Sender: TObject);
begin
  Click01(SpeedButton64);
end;
Як зробити щоб в Click01 не писати SpeedButton..

2

Re: Delphi xe Click01(this sefl);

Виставити всім кнопкам обробника доведеться ручками

procedure TForm2.SpeedButtonAllClick(Sender: TObject);
begin
  Click01(Sender);
end;

3 Востаннє редагувалося Stanislav Stecenko (04.06.2015 22:58:12)

Re: Delphi xe Click01(this sefl);

Ошибка Incompatible types: 'TSpeedButton' and 'TObject'

4 Востаннє редагувалося Stanislav Stecenko (04.06.2015 23:06:30)

Re: Delphi xe Click01(this sefl);

Click01(Sender as TSpeedButton); А так працює!!!!!!!!!!

Подякували: koala1

5

Re: Delphi xe Click01(this sefl);

Можна іще простіше. Замінити:
procedure TForm2.Click01(SB: TObject);
І виставити Click01 на OnClick усім SpeedButton-ам.

6

Re: Delphi xe Click01(this sefl);

Не факт, що простіше - Click01 може суттєво залежати від того, що туди сують Button.