[ewgeny911]

Здравствуйте! Не подскажите как можно передать в процедуру ссылку на форму, чтобы в этой процедуре было возможно обращаться к компонентам этой формы? Т.е сделать так чтобы в процедуру не передавать ссылки не на компоненты, а только на форму. А уже в самой процедуре выяснять есть ли на той форме, ссылка на которую передана, нужный нам компонент и производить с ним какие либо действия.
Например форм у нас 100 шт., и на каждой есть Button1 и Label1. Как на клике этих Button1 вызвать процедуру TForm1.MyProc передав этой процедуре указание о том какая форма эту процедуру вызывает?

procedure TForm1.MyProc(ссылка_на_форму);
begin
ссылка_на_форму.Label1.Caption := 'aaa';
end;

[Aristarh Dark]

Код:

1	procedure someproc (form:TForm)

как-то так

[ewgeny911]

Неа, не так. Компилятор не даст в процедуре обратиться к Label1 формы, потому что у TForm нет компонента Label1. А он есть только у TForm1.
А нужно передавать ведь не только TForm1, а еще 50 других различных форм.

[Pyro]

PHP код:

MyProc(((Sender as TButton).Parent as TForm)) 


интересно зачем это делать, похоже на кривую архитектуру

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

у TForm нет компонента Label1. А он есть только у TForm1.
А нужно передавать ведь не только TForm1, а еще 50 других различных форм.

а если someproc(form:TForm1) а те другие потомки TForm1

[Aristarh Dark]

приведение типов:

Код:

1	(form as TForm1).Label1.Caption := 'some text'

[ewgeny911]

Нет, так не поучится, потому что тип неизвестен.

(form as TForm1).Label1.Caption := 'some text'

т.е в этой строке неизвестно что ставить TForm1 или TForm2088.
Хочется передавать в процедуру ссылки на разные формы и у них разные компоненты.
Это нужно потому что в программе есть много разных похожих форм, у на обработчиках событий компонентов этих форм одинаковый код. И такого одинакового кода 90%. Поэтому хотелось бы вынести этот код в отдельные процедуры и в эти процедуры передавать только ссылку на форму, к какой он относится.

[Pyro]

http://ru.wikipedia.org/wiki/Объектн...82.D0.B8.D1.8F
конкретно - наследование

[NumLock]

у меня все получилось:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type <font color="Red">  TMyForm = class(TForm)   public     function GetLabel: TLabel; virtual; abstract;   end; </font>   TForm1 = class(<font color="red">TMyForm</font>)     Label1: TLabel;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     <font color="red">function GetLabel: TLabel; override; </font>   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   <font color="Blue">procedure TheLost(MyForm: TMyForm); begin   <font color="red">MyForm.GetLabel.Caption:='TheLost';</font> end;</font>   function TForm1.GetLabel: TLabel; begin   <font color="red">Result:=Label1;</font> end;   procedure TForm1.FormCreate(Sender: TObject); begin   <font color="Lime">TheLost(Self);</font> end;   end.

[ewgeny911]

NumLock спасибо! Также на Королевстве Дельфи подсказали:

Код:

1 2 3 4

procedure TForm1.MyProc(F: TForm); begin   TLabel(F.FindComponent('Label1')).Caption := 'aaa'; end;

[NumLock]

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

Код:

ну если все TLabel назвать одинаково то можно, иначе:

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

Нет, так не поучится, потому что имя неизвестно

[SergArmy]

А разве нельзя было просто подключить модуль первой формы ко второй?

Код:

1 2 3

<b>implementation</b>   <b>uses</b> frm2_Unit;

И после будут доступны все компоненты формы!!
Если такой метод не правелен скажите почему, просто я часто к этому пербегаю.

[Lucky192]

Лучше всего подобную задачу решать через интерфейсы. Вот простой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,      Dialogs, StdCtrls;   type     IFormGroup1 = interface   // Следующая строчка нужна, если использовать QueryInterface, генерируется: Ctrl+Shift+G     ['{A0653A06-F38E-49F8-AA1B-5E53344A455F}']     procedure DoProc1(s:string);     procedure DoProc2(i:integer);     function GetFormCaption:string;     procedure SetFormCaption(s:string);     property FormCaption:string read GetFormCaption write SetFormCaption;   end;     TForm1 = class(TForm, IFormGroup1)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private   public     procedure DoProc1(s:string);     procedure DoProc2(i:integer);     function GetFormCaption:string;     procedure SetFormCaption(s:string);   end;   var Form1: TForm1;   implementation {$R *.dfm}   { TForm1 }   procedure TForm1.DoProc1(s: string); begin   Caption := s; end;   procedure TForm1.DoProc2(i: integer); begin   Caption := Caption + IntToStr(i); end;   procedure TForm1.Button1Click(Sender: TObject); var x:IFormGroup1; begin   // Вот три способа:   x := Form1; // Самый простой, но не везде работает   x := TForm(Form1);  // например здесь - ошибка компиляции, т.к. у TForm нет интерфейса IFormGroup1   IInterface(TForm(Form1)).QueryInterface(IFormGroup1,x); // этот работает всегда   if assigned(x) then begin     x.DoProc1('lalala');     x.DoProc2(345);     x.FormCaption := '!!!'+x.FormCaption;   end; end;   function TForm1.GetFormCaption: string; begin   Result := Caption; end;   procedure TForm1.SetFormCaption(s: string); begin   Caption := s; end;   end.

Другой вариант - через поиск компонентов, но тогда, если нужно обрабатывать отдельные компоненты а не классы, им нужно давать осмысленные имена или как-то по другому выделять их (например используя Tag). Если компонент будете искать не по имени, нужно вручную перебирать все компоненты формы и анализировать их свойства (через свойства формы Controls или Components).