Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak

Mesaj gönderen izmirlikemal »

Merhaba değerli delphi dostalarım...
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;
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak

Mesaj gönderen SimaWB »

KeyPress'te

Kod: Tümünü seç

TEdit(Sender).Text
kullanabilirsiniz.


Ayrıca oluşturduğunuz editler için liste oluşturabilirsiniz:

Kod: Tümünü seç

var
  Liste: TObjectList<TEdit>;
  //yada
  Liste: TObjectList;
gibi...
En son SimaWB tarafından 05 Haz 2018 09:33 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
There's no place like 127.0.0.1
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak

Mesaj gönderen izmirlikemal »

Yardımınız için Teşekkür ederim
ssahinoglu
Üye
Mesajlar: 7
Kayıt: 05 Eki 2007 02:50

Re: Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak

Mesaj gönderen ssahinoglu »

Array veya TList içine doldurmak lazım.
Cevapla