Как прописать условный оператор кликанья на кнопку?

[mauar]

Сообщение от DomiNick

А нафиг..? "Button1.Click" - это комманда нажать кнопку, а не условие...

А ты сможешь написать условия нажатия на кнопку? )) Если нажата кнопка 1 то сделать то то.
Народ, если кто нибуть из вас решал олимпиадные задачи, там что то подобное есть кстати!

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

вы можете обьяснить толком что вам нужно?
при нажатии на кнопку идет событие ОнКлик!
в этом событии можно поместить любой код
то есть ваше

if Button1.Click then //код

заменяется на procedure

TForm1.Button1Click(Sender : TObject);
begin
//код
end;

а если вам нужно на одну процедуру повесить несколько кнопок(то есть наоборот)
то нужно использовать Sender для определенния какая-именно кнопка нажата.

[BaronTreep]

Можно поставить на форму красивую картинку (кнопку).
Для неё написать OnMouseDown и OnMouseUp.
В первой писать

procedure TForm1.ImageButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Button1Put:= True;
    // Менять картинку
end;

во втророй

procedure TForm1.ImageButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Button1Put:= False;
    // Менять картинку обратно
end;

Где Button1Put глобальная переменная.
Теперь из любого места программы можно проверить

if Button1Put then ...

Может это имелось в виду?

[mauar]

Сообщение от BaronTreep

Можно поставить на форму красивую картинку (кнопку).
Для неё написать OnMouseDown и OnMouseUp.
В первой писать

procedure TForm1.ImageButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Button1Put:= True;
    // Менять картинку
end;

во втророй

procedure TForm1.ImageButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Button1Put:= False;
    // Менять картинку обратно
end;

Где Button1Put глобальная переменная.
Теперь из любого места программы можно проверить

if Button1Put then ...

Может это имелось в виду?

Да что то в этом роде только для обычной кнопки. Обычное задание, прописать условный оператор If для нажатия стандартной кнопки типа TButton :-)
В конце у нас должно получиться написать вот такой маленький код:
if button1 = click then делаем то то

[DomiNick]

Там код в библиотеки Dll находится, ссылаемся из основной формы проекта на нажатия кнопку из формы находящийся в библиотеки.

Ну так наверное оно должно тогда что-то возвращать... Это и проверяй в условии...

Например как с диалоговым окном:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If MessageDlg(' Вы Уверены?? 0_о ', mtInformation, [mbYes, mbNo], Word(-1))=6  Then
      Begin
      // Делаем что-то, если в диалоговом окне нажали "Yes"
      End
Else
      Begin
      // Делаем что-то, если в диалоговом окне нажали "No"
      End;
End;

[TilerDerton]

Нет, мне нужно сделать отлов нажатия кнопки, если кнопка нажата то сделать то то, может while или repeat попробовать? Без обработчика OnClick

Я понял так: есть кнопка, нам требуется узнать (сообщить) о нажатии на нее, не трогая ОНклик.
Могу предложить 2 варианта:
Первый - обрабатывать Button1MouseDown, и Button1MouseUp. Если MouseDown, то мы можем выполнить нужные нам действия до того, как пойдет код из ОНклик, т.к. кнопка будет ждать MouseUp. Ну тут можно еще учесть то, что пользователь может зажать мышкокнопку на кнопке, а отпустить просто на форме=)
Слишком просто?
Тогда есть вариант2 - пост
В этом исходнике отлавливается нажатие мыши, соответственно клик по области, содержащей кнопку (ту у которой не хочется трогать ОНклик) мы и обрабатываем. Ну а тут уже делаем что захотим.
Разумеется для нормального функционирования требуется закрепить форму/кнопку. Т.е. чтобы координаты кнопки не менялись.

[DomiNick]

А мне показалось нужно как бы перехватывать нажатия на TButton в чужом приложении и заместо "родного" OnClick выполнять свой код...

[TilerDerton]

Ну, вроде:

Да что то в этом роде только для обычной кнопки. Обычное задание, прописать условный оператор If для нажатия стандартной кнопки типа TButton :-)
В конце у нас должно получиться написать вот такой маленький код:
if button1 = click then делаем то то

Сомневаюсь, что это для ковыряния чужих приложений.
Хотя не все дано нам узнать xD

[DomiNick]

Ну так надо как бы "перехватывать" событие

на нажатия кнопку из формы находящийся в библиотеки

Или думаю точнее надо "узнавать" нажали ли на кнопку в форме вызванной из DLL...

[TilerDerton]

Не обратил внимания на тот пост... Ну да ладно подождем ответа ТС.