Показать сообщение отдельно
  #5  
Старый 14.12.2011, 05:48
Den-is Den-is вне форума
Новичок
 
Регистрация: 07.10.2011
Сообщения: 66
Репутация: 10
По умолчанию

Хорошо, вот по проще объяснение.
Допустим у нас есть стандартная процедура нажатия на кнопку которая изменяет размер кнопки:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  button1.Height:=50;
  button1.Width:=50;
end;
как сделать так что бы изменение размера было описано в собственной процедуре, а нажатие на кнопку просто вызывало эту процедуру.
То есть допустим если процедура называлась бы "knopka" то код выглядел бы так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  knopka
end;
Так вот как правильно создать эту процедуру либо функцию в которой уже и указать изменение размера кнопки?
Ответить с цитированием