Kodla obje yaratırken isimleri

[neu84]

Selam arkadaşlar, aşagıdaki kodla edit ekliyorum. veritabanından gelecek olan sorgu sonucuna göre oluşturucam bunları ama böyle yapınca aynı isimde create edildikleri için hangi editin hangiisne ait oldugunu nasıl bulabilirim. diyelim ki A1,A2 A3 geliyo, 3 tane edit oluşacak, ve yanında da label.ama bu editlerin adlarını nasıl farklı yapabilirim. Birde aşagıdaki gibi yapınca isim çakışması olması gerekmiyor mu?

var
yenitext: TEdit;
begin
yenitext:=TEdit.Create(Form2);.
sayi:=sayi+20;
yenitext.SetBounds(20,sayi,100,20);
yenitext.Parent:=form2;//
end;

[aslangeri]

s.a.
yenitext.name=XXXXX; diyerek atama yapmayı denedinmi.
yanlış hatırlamıyor isem buna izin vermesi lazım.
kolay gelsin.

[neu84]

s.a.
yenitext.name=XXXXX; diyerek atama yapmayı denedinmi.
yanlış hatırlamıyor isem buna izin vermesi lazım.
kolay gelsin.

a.s,
Denemiştim ancak bişey gözden kaçırmışım, bi procedure yaparım bi parametre veririm , parametreye ne verdiysem gider o isimle oluşturur diye düşünüyodum, ancak ismi degiştirmeyi bu şekilde denememiştim işe yaramaz hata verir diye. Tşk ederim.. Peki bu kodla oluşturdugum editler yada herhangi objeler formu kapatıp ana forma döndügümde hala korunacak mı?

[aslangeri]

bu birazda sizin kodlama yapınıza kalmış.
formu kapattığınızda normalde sadece hide oluyorlar. yani eklediğiniz bileşenler korunur.
formu çağırma metodnuza bağlı olarak eklediğiniz bileşenler uçabilir de.
kolay gelisn.

[adnansirca]

Çalışma zamanı kontrol oluşturduktan sonra bunları elle yok etmek gerekir.
Aksi halde hafızada gereksiz yer kaplar.

Pek mantıklı olmasa da
Kontrolleri oluşturduktan sonra formu bir ini dosyaya kaydederek daha
önce oluşturulan kontrollerin formda kalması sağlanabilir.

Kod: Tümünü seç

unit Unit3;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure myButtonClick(Sender:TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  myButton : array[1..10] of TButton;
  i : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 for i := 1 to 10 do
  myButton[i].Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 for i := 1 to 10 do begin
  myButton[i] := TButton.Create(Form1);
  myButton[i].Left := 8;
  myButton[i].Top := (i-1)*30;
  myButton[i].Width := 50;
  myButton[i].Height := 30;
  myButton[i].Parent := Form1;
  myButton[i].Caption := 'Button'+IntToStr(i);
  myButton[i].Name := 'Button'+IntToStr(i);
  myButton[i].OnClick := myButtonClick;
 End;

end;

procedure TForm1.myButtonClick(Sender: TObject);
var
i:Integer;
begin
 if (Sender as TButton).Name = 'Button5' then
 ShowMessage('Button5 e bastınız')
 else
 ShowMessage((Sender as TButton).Caption+' çağrıldı');
end;

end.

Zeydin PALA nın meşhur 34 Konuda Delphi 7 isimli uygulama geliştime rehberini bir yerden temin edin.
Bu tür konularda ayrıntılı açıklamalar yapmakta.

[neu84]

İkinizede ayrı ayrı tşk ederim.