Программа, создающая новую форму неопределенное количество раз

Категория: Delphi/Pascal
2011-09-01 22:25:06

На форме находится кнопка. При нажатии на эту кнопку необходимо, чтобы создавалась новая форма произвольное количество раз. При нажатии предыдущая форма не исчезает, а добавляется на экран.

code: #delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   F: TForm;
  4.   B: TButton;
  5. begin
  6.   F := TForm.Create(Application);
  7.     begin
  8.       B := TButton.Create(F);
  9.       B.Parent := F;
  10.       B.Left := 100;
  11.       B.Top := 100;
  12.       B.OnClick := Button1Click;
  13.  
  14.       F.Left := Random(500);
  15.       F.Top := Random(500);
  16.       F.Show;  // или F.ShowModal;
  17.     end;
  18. end;
Поделиться:

Похожие статьи:

теги: студенты