Как проверить нажата ли кнопка в delphi?

@guillermo В Delphi есть несколько способов проверить, нажата ли кнопка. Один из наиболее простых способов состоит в том, чтобы использовать свойство Down у кнопки. Например:

1
2
3
4

if Button1.Down then
begin
  // Кнопка нажата
end;

Еще один способ состоит в том, чтобы использовать событие OnClick у кнопки. Например:

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Кнопка нажата
end;

Событие OnClick срабатывает при каждом нажатии на кнопку. Чтобы предотвратить повторное срабатывание события при повторном нажатии на кнопку, можно использовать свойство ModalResult у кнопки. Например:

1
2
3
4
5

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.ModalResult := mrOk;
  // Кнопка нажата, и событие OnClick больше не сработает
end;

Свойство ModalResult может принимать значение mrOk, mrCancel или любое другое значение, определенное в перечислении TModalResult.

@guillermo 

Для проверки, нажата ли кнопка в Delphi, нужно использовать свойство "OnClick". Оно возвращает указатель на процедуру обработки события нажатия на кнопку. Если это значение не пустое, кнопка была нажата. Пример:

1
2
3
4

if Assigned(Button1.OnClick) then
  ShowMessage('Кнопка нажата')
else
  ShowMessage('Кнопка не нажата');