Konu başlığında yazdığımın bir kısmını internetden ve www.Delphiturkiye.com sitesinden yaptığım araştırma ile aşağıda
kodlarını verdiğim şekliyle ve döngü ile istediğim kadar Edit nesnesi oluşturuyorum. Buraya kadar bir sorunum yok; Ancak
Örneğin 3 adet Editler1,Editler2,Editler3 nesnelerine değer/değerler girdiğimde bu girdiğim değerleri Global değişkene
atamak istiyorum. Bunu Keypres olayında atama yapmak istediğimde veya formda başka bir Procedure altında yapmak istediğimde
editler1'e veya Editler2'ye yazdıklarımı değilde sonuncu Editler'in değerini alıyor (procedure TForm1.Editler_KeyPress(sender: TObject; var Key: Char);), olduğu gibi.
NOT:
Delphi10.2 Tokyo, Windows10 64bit kullanıyorum.
Şimdi benim yapmak istediğim, herhangi bir procedure ile
degisken1:=Editler1.text;
degisken2:=Editler2.text;
degisken3:=Editler3.text;
gibi editleri değişkenlere atamak.
Bu konuda yardımcı olabilecek arkadaşlarıma teşekkür ederim.
Kod: Tümünü seç
implementation
{$R *.dfm}
var degisken1,degisken2,degisken3:String;
.....
.....
procedure TForm1.Editler_KeyPress(sender: TObject; var Key: Char);
begin
form1.Caption:=editler.Text
end;
procedure TForm1.YeniEditUret;
var
i:integer;
begin
for i:=1 to Alan_Sayisi do begin
Editler:=TEdit.Create(Form1);
Editler.SetBounds(176,(148+i*25),150,22); // i*10 ile editleri alt alta oluşturacağız.
Editler.Parent:=Form1;
Editler.name:='Editler'+inttostr(i);
Editler.OnKeyPress:=Editler_KeyPress;//işlet
end;
end;