Показать сообщение отдельно
  #12  
Старый 08.01.2011, 20:15
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Код:
procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;
__________________
Помогаю за Спасибо
Ответить с цитированием