Передача параметров в событие

[_Fobos_]

Здравствуйте уважаемые господа!
объясните пожалуйста неопытному,возможно ли передать параметры в событие?
если да то, как это сделать?
заранее благодарен

[Stilet]

Какие параметры и в какое событие.
Если в общем - то ответ положительный.

[Shouldercannon]

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MyAction(i1, i2: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  MyAction(10, 4);
end;

procedure TForm2.MyAction(i1, i2: Integer);
begin
  ShowMessage(IntToStr(i1 - i2));
end;

Не?

[_Fobos_]

передать нужно список TList из одной формы в событие, скажем ButtonClick, на другой форме
такое возможно?

[Stilet]

Да, такое возможно. Сделай поле типа TList для второй формы, куда и передавай список с первой формы, а в событие это поле используй.

[_Fobos_]

прошу прощения
но можно поподробнее?

[Stilet]

Можно.
Это класс формы, которому будешь передавать список:

  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   l:TList;
    { Public declarations }
  end;

Допустим в некоем обработчике по клику на кнопку он будет очищаться

procedure TForm2.Button1Click(Sender: TObject);
begin
 l.Clear;
end;

Ну или пропиши там код, который с ним должен работать.

Тогда: Если есть переменка формы

form2.l:=Тут переменка списка что передаем этой форме.

[_Fobos_]

спасибо большое!
понял.