Man könnte auch ein simples Array für die Edits machen, etwa so:
Delphi-Quellcode:
tform
edarray:array[1..10] of array[1..10] of tedit;
procedure TForm1.CreateMatrix(rang:integer);
var
i,k : integer;
begin
for i:=1 to rang do
for k:=1 to rang do
begin
edarray[i,k]:=tedit.create(self);
...
editarray[i,k].onexit:=exithandler;
end
end;
procedure TForm1.EditExitHandler(Sender: TObject);
begin
for i:=1 to rang do
for k:=1 to rang do
begin
if tedit(sender)=edarray[i,k] then
// Do something here
end;
end
Mann sollte die Edits dann auch wieder freigeben.
Nur mal schnell hingeschrieben, kann man sicher auch schöner machen.