Проблема с кнопкой

[BigBear]

Создал кнопку с именем Button1

Теперь никак не могу найти нужное свойство чтобы при нажатии на неё происходило событие.

Отдельно процедуру создавать нельзя тк юзаю эту кнопку приблизительно так

if Button1=Pressed then Memo1.Lines.Add('131414');
if Button2=Pressed и тд

то есть мне необходимо узнать свойство кнопки - была ли она вообще нажата ???

[XeruH]

Нет у TButton такого свойства. Чем тебя событие OnClick не устраивает?

[wm_leviathan]

обробатывайте свойства onclick (для клика мышки) или OnKeyPress (для клавиатуры)
пример по клику мышки:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add('131414');
end;

PS "отдельно процедуру создавать нельзя" это как ? любую создавать нельзя, стандартная есть ее можно юзать ?

[Stilet]

А я бы даже так сделал:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Memo1.Lines do begin
 if sender=Button1 then Add('131414');
 if sender=Button2 then Add('fsdfs');
 ...
 if sender=ButtonN then Add('kdjfhd');
end;
end;

И каждой кнопке этот обработчик назначил.