Создание компонент во время выполнения программы и обработка их событий

"Се, гpядет с облаками, и yзpит Его всякое око. И возpыдают пеpед Hим все племена земные. Ей, аминь." - так или пpимеpно так дpевний пpозаик Иоанн по пpозвищy Богослов пpоpочествyет в своих "Откpовениях" о гpядyщем yжасном WINDOWS.

В данном примере по созданию окна создаются кнопки, по нажатию каждой выводится сообщение, в котором значится заголовок кнопки, вызвавшей событие. Сначала вынесите на форму компонент TButton и по его нажатию напишите такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage((Sender as TButton).Caption);
end;

А основное действие свершится по созданию окна:

procedure TForm1.FormCreate(Sender: TObject);
var
  Button1: TButton;
  i: integer;
begin
  for i:=0 to 4 do
  begin
    Button1:=TButton.Create(Form1);
    with Button1 do
    begin
      Parent := Form1;
      Caption := 'Кнопка ' + IntToStr(i + 1);
      Height := 25;
      Width := 75;
      Top := i * 25 + 25;
      Left := 50;
      OnClick := Button1Click;
    end;
  end;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 512 • TDictionary Custom Sort 6 532 • Fast Watermark Sources 6 321 • 3D Designer 9 267 • Sik Screen Capture 6 653 • Patch Maker 7 031 • Айболит (remote control) 7 041 • ListBox Drag & Drop 5 910 • Доска для игры Реверси 97 284 • Графические эффекты 7 243 • Рисование по маске 6 543 • Перетаскивание изображений 5 408 • Canvas Drawing 5 779 • Рисование Луны 5 485 • Поворот изображения 5 014 • Рисование стержней 3 567 • Paint on Shape 2 830 • Генератор кроссвордов 3 707 • Головоломка Paletto 2 986 • Теорема Монжа об окружностях 3 790 • Пазл Numbrix 2 499 • Заборы и коммивояжеры 3 181 • Игра HIP 2 149 • Игра Go (Го) 2 086 • Симулятор лифта 2 460 • Программа укладки плитки 2 126 • Генератор лабиринта 2 602 • Проверка числового ввода 2 279 • HEX View 2 610 • Физический маятник 2 220

Создание компонент во время выполнения программы и обработка их событий

Похожие по теме исходники