событие для массива созданных элементов

[zvygin1964]

j и t? Где прописаны

var
  Form1: TForm1;
  //....................................................
j,t: Integer;  //глобальные переменные для слежения за траекторией прохождения заданного маршрута курсора
implementation
{$R *.dfm}

Вероятно, мне стоит отказаться от использования Tag в пользу:

begin
     button[i].visible:=True;//Показать именно ту button, на которую наведен курсор.
     j := i     ; //Номер последней использованной button.
end

[zvygin1964]

Получилось!:

begin
     button[i].visible:=True;//Показать именно ту button, на которую наведен курсор.
     j := i     ; //Номер последней использованой button.
     t:= button[i].Tag ;  //t стала равна Tag той же  button.
end

[zvygin1964]

А как исправить вот это:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Butts: array of TButton;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i, j: byte;
begin
 j:=1;
    for i:=0 to ComponentCount-1 do //просматриваем
 if (Components[i] is TButton)
 then
  begin //если подходит
      Butts[j]:=(Components[i] as TButton);//помещаем в массив Butts
      j:=j+1;
  end;
 end;
end.

// ?
Дает ошибку:
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0044DF94 in module 'Project1.exe'. Write of address 00000004'. Process stopped. Use Step or Run to continue.

[min@y™]

Butts[j]:=

а память выделять пушкин будет?

[zvygin1964]

Плохо дело... Там не сказали как ее выделять.
http://www.delphimaster.ru/articles/comparray.html#y,
Да, потом спрошу как ее освобождать...

[Аватар]

Там не сказали как ее выделять

Так же как под любой динамический массив

[zvygin1964]

Так?:

procedure TForm1.FormCreate(Sender: TObject);
var i, j: byte;
begin
 SetLength(Butts,High(j));
 j:=1;
    for i:=0 to ComponentCount-1 do //просматриваем
.............................................

[min@y™]

Так?:

не совсем.
советую викинуть дин. массив к ядрене фене и юзать TList.

[Stilet]

и юзать TList.

А лучше TObjectList или даже TComponentsList

[zvygin1964]

А так будет правильно? (работает)

unit main; //украл отсюда: http://zoo-mania.ru/delphi/tobjectlist/index.html

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Contnrs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    type
      TEditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEdit;
    procedure SetItems(Index: Integer; const Value: TEdit);
  published
  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;

var
  Form1: TForm1;
  EditList: TEditList;



implementation

{$R *.dfm} { TEditList }
function TEditList.GetItems(Index: Integer): TEdit;
begin
   Result := TEdit(inherited GetItem(Index));
end;

procedure TEditList.SetItems(Index: Integer; const Value: TEdit);
begin
  inherited SetItem(Index, Value);
end;

procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
begin
  EditList := TEditList.Create();
  EditList.Add(Edit1);
  EditList.Add(Edit2);

    for i:=0 to EditList.Count - 1 do
  EditList[i].Text := 'default';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   EditList.Free;
end;

end.

: