Создание форм

[newerow1989]

Дан код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Forms, StdCtrls, Classes;

type
  tClick = class
    procedure Button0Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
  end;

var
  Form1,Form2:tForm;
  cl:tClick;
  aLeft:integer=0;

procedure FormCreate;
begin
   Form2:=tForm.Create(Application);
   Form2.Caption:='show';
   Form2.Left:=aLeft;
   aLeft:=aLeft+350;
   With tButton.Create(Form2) do
   begin
      Parent:=Form2;
      Caption:='Click';
      OnClick:=cl.ButtonClick;
   end;
   With tLabel.Create(Form2) do
   begin
      Parent:=Form2;
      Caption:='random';
      Name:='Labels';
      Top:=30;
   end;
   Form2.Show;
end;

{ tClick }

procedure tClick.Button0Click(Sender: TObject);
var i:byte;
begin
   For i:=0 to 2 do
      FormCreate;
end;

procedure tClick.Button1Click(Sender: TObject);
begin
   tLabel(Form2.FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

procedure tClick.Button2Click(Sender: TObject);
begin
   tLabel(Form2.FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

procedure tClick.Button3Click(Sender: TObject);
begin
   tLabel(Form2.FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

procedure tClick.ButtonClick(Sender: TObject);
var f:tComponent;
begin
   f:=(Sender as tButton).Owner;
   tLabel((f as tForm).FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

begin
   Form1:=tForm.Create(Application);
   Form1.Caption:='main';
   Form1.Left:=300;
   Form1.Top:=300;
   With tButton.Create(Form1) do
   begin
      Parent:=Form1;
      Caption:='Create';
      OnClick:=cl.Button0Click;
   end;
   With tButton.Create(Form1) do
   begin
      Parent:=Form1;
      Caption:='Click 1';
      Top:=30;
      OnClick:=cl.Button1Click;
   end;
   With tButton.Create(Form1) do
   begin
      Parent:=Form1;
      Caption:='Click 2';
      Top:=60;
      OnClick:=cl.Button2Click;
   end;
   With tButton.Create(Form1) do
   begin
      Parent:=Form1;
      Caption:='Click 3';
      Top:=90;
      OnClick:=cl.Button3Click;
   end;
   Form1.ShowModal;
end.

При нажатии кнопок на формах "show" меняются Label. При нажатии кнопок "Click 1", "Click 2", "Click 3" на форме "main" меняется Label только 3-го окна "show".

Как сделать, чтобы принажатии кнопки "Click 1" изменялся Label в 1-м окне, при нажатии кнопки "Click 2" изменялся Label во 2-м окне?

[Streletz]

Сообщение от newerow1989

procedure tClick.Button1Click(Sender: TObject);
begin
   tLabel(Form2.FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

procedure tClick.Button2Click(Sender: TObject);
begin
   tLabel(Form2.FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

procedure tClick.Button3Click(Sender: TObject);
begin
   tLabel(Form2.FindComponent('Labels')).Caption:=IntToStr(Random(100));
end;

При нажатии кнопок на формах "show" меняются Label. При нажатии кнопок "Click 1", "Click 2", "Click 3" на форме "main" меняется Label только 3-го окна "show".

Как сделать, чтобы принажатии кнопки "Click 1" изменялся Label в 1-м окне, при нажатии кнопки "Click 2" изменялся Label во 2-м окне?

Вам не кажется, что все 3 кнопки работают с одной и той же формой?

[newerow1989]

Кажется. Но как получить доступ с главной формы "main" к первой или ко второй форме?

[Streletz]

Сообщение от newerow1989

Кажется. Но как получить доступ с главной формы "main" к первой или ко второй форме?

Нужно каким-либо образом однозначно идентифицировать каждую форму.
Как вариант. Создать массив из TForm и работать с элементами этого массива.

[Stilet]

как получить доступ с главной формы "main" к первой или ко второй форме?

В Uses пропиши модули форм, и используй из них переменные этих форм.

[newerow1989]

Выражение Form: array of tForm мне не желательно использовать!
Тогда другой вопрос: через Handle возможно получить доступ?

[Streletz]

Сообщение от newerow1989

Тогда другой вопрос: через Handle возможно получить доступ?

Если Вам проще иметь дело с Win API...
Опять же, скорее всего, будет массив, но уже не из TForm, а из Handle. Только, если при работе с TForm можно легко выполнять любые манипуляции с окнами своей программы средствами этого класса, то при "доступе через Handle" всё это придётся делать с помощью функций WinAPI со всеми вытекающими.
В прочем, Вам виднее...

[newerow1989]

В принципе понятно. Спасибо!

[Stilet]

через Handle возможно получить доступ?

Есть Screen.Forms - это массив форм приложения.
Только я чет перестал терь понимать зачем это понадобилось

[newerow1989]

Ладно, попробую и этот вариант!