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

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Тема: 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 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 617
    • Репутація: 13330

Re: Delphi xe Click01(this sefl);

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

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

koala вебсайт

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

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: Delphi xe Click01(this sefl);

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

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

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: Delphi xe Click01(this sefl);

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

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

5 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 089
    • Репутація: 2282

Re: Delphi xe Click01(this sefl);

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

6 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 617
    • Репутація: 13330

Re: Delphi xe Click01(this sefl);

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

koala вебсайт