Hola a todos...
lo que pasa es que quiero declararle un nombre a un TEdit que estoy creando en tiempo de ejcucion pero el problema es que los estoy creando con una matriz y no se como hacer para declararle todos los nombres a todos los TEdit...
les agradesco su ayuda.
Este es el codigo.
Código Delphi
[-]
unit Ejecucion;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Menus;
type
matriz = array of array of Integer;
TfrmEjecucion = class(TForm)
Button1: TButton;
Edt: TEdit;
Panel1: TPanel;
Panel2: TPanel;
Button2: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
Volver1: TMenuItem;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Volver1Click(Sender: TObject);
private
public
end;
var
frmEjecucion: TfrmEjecucion;
NEdits : Integer;
Edits: TEdit;
m : matriz;
implementation
{$R *.dfm}
procedure TfrmEjecucion.Button1Click(Sender: TObject);
var
c,f : Integer;
begin
if StrToInt(Edt.Text) >= 11 then
begin
ShowMessage('El valor tiene que ser igual o menor a 10');
Edt.Clear;
end
else
begin
NEdits := StrToInt(Edt.Text);
SetLength(m, StrToInt(Edt.Text),StrToInt(Edt.Text));
Button1.Visible := False;
Edt.Visible := False;
end;
for c := 1 to NEdits do
begin
for f := 1 to NEdits do
begin
Edits := TEdit.Create(Self);
Edits.Left := 21 * (c + 1);
Edits.Top := 21 * (f + 1);
Edits.Width := 20;
Edits.Height := 20;
Edits.Enabled := False;
Edits.Parent := Panel1;
Button3.Visible := True;
end;
end;
end;
procedure TfrmEjecucion.Volver1Click(Sender: TObject);
begin
Close;
end;
end.