Arama butonu
Bu konudaki kullanıcılar: 1 misafir
8
Cevap
410
Tıklama
0
Öne Çıkarma
Delphide (ONCreate) ile ilgili bir soru
M
20 yıl
Teğmen
Konu Sahibi

Arkadaşlar yardım ederseniz çok sevinirim problem şu;

procedure TForm1.Button1Click(Sender: TObject);
var ikinciform:TForm;
begin
ikinciform:=tform.Create(self);
ikinciform.Position:=poMainFormCenter;
ikinciform.Align:=alNone;
ikinciform.FormStyle:=fsNormal;
ikinciform.Show;
ikinciform.Name:='ikiciform';
ikinciform.Caption:='DENEME';
end;

bu kodlarla form1 deki button un içinden yeni bir form yaratıyorum. buraya kadar bir problem yok ama yarattığım ikinci form isimli formun ONCREATE olayını kullanmak istiyorum ne denediysem başarılı olamadım . bilem varsa ve bana yardım edebilirse çok sevinirim.

şimdiden çok teşekkürler.

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



İ
20 yıl
Binbaşı

quote:

Orjinalden alıntı: metalkesh

Arkadaşlar yardım ederseniz çok sevinirim problem şu;

procedure TForm1.Button1Click(Sender: TObject);
var ikinciform:TForm;
begin
ikinciform:=tform.Create(self);
ikinciform.Position:=poMainFormCenter;
ikinciform.Align:=alNone;
ikinciform.FormStyle:=fsNormal;
ikinciform.Show;
ikinciform.Name:='ikiciform';
ikinciform.Caption:='DENEME';
end;


bu kodlarla form1 deki button un içinden yeni bir form yaratıyorum. buraya kadar bir problem yok ama yarattığım ikinci form isimli formun ONCREATE olayını kullanmak istiyorum ne denediysem başarılı olamadım . bilem varsa ve bana yardım edebilirse çok sevinirim.

şimdiden çok teşekkürler.



Self olarak create ettiğiniz için sorun oluyor sanıyorum . Şu şekilde Create edersen sorun kalmaz galiba

Application.Createform (TForm1,ikinciform);
ikinciform.Caption:='DENEME';
ikinciform.show;

ikinci form 1. formun ikizi olacağı için aynı Create olayı çağrılır yani ikinci kodda işleteceğiniz Create yordamı 1 nci ile aynı olur. Self Create ederek deiştirmek mümkünmü bilemiyorum ama bugüne kadar öğrendiklerimle mümkün olmaz sanıyorum her seferinde ilk create uygulanır ...


Bu mesaja 1 cevap geldi.
S
20 yıl
Yüzbaşı

2. Formu görsel oLarak yarat butonLa sadece Cagırırsın bu formu ne fark ederki ?


Bu mesaja 1 cevap geldi.
M
20 yıl
Teğmen
Konu Sahibi

quote:

Orjinalden alıntı: serserfan

2. Formu görsel oLarak yarat butonLa sadece Cagırırsın bu formu ne fark ederki ?


ilk form haricinde diğer büyün formları ve formda kullanacağım bütün buttonları,editleri.... yaratıp işim bittiğinde yok ederek programın bellekte kapladığı alanı minimum boyuta indirmek istiyorum. ilk önce senin önerdiğin şekildede denemiştim fakat programın exe si 1.20 ile 1.50 MB arası, programın bellekte kapladığı yerde 5MB gibi bir yer kaplıyor.ben bu problemi bu şekilde aşabileceğimi zannediyorum.

daha değişik önerileriniz veya aklınıza gelen değişik bir fikir olduğunda paylaşırsanız çok sevinirim .

çok teşekkürler


Bu mesaja 2 cevap geldi.
S
20 yıl
Yüzbaşı

Form u sadece tanıt en başta.

Daha sonra crate ile oluştur bu şekilde denesene bi.

Hani formların nesnelerin tanıtıldıgı kısım var ya oraya tanıt sadece.Ama oluşturma kodda oluşturursun.



İ
20 yıl
Binbaşı

quote:

Orjinalden alıntı: metalkesh

quote:

Orjinalden alıntı: serserfan

2. Formu görsel oLarak yarat butonLa sadece Cagırırsın bu formu ne fark ederki ?


ilk form haricinde diğer büyün formları ve formda kullanacağım bütün buttonları,editleri.... yaratıp işim bittiğinde yok ederek programın bellekte kapladığı alanı minimum boyuta indirmek istiyorum. ilk önce senin önerdiğin şekildede denemiştim fakat programın exe si 1.20 ile 1.50 MB arası, programın bellekte kapladığı yerde 5MB gibi bir yer kaplıyor.ben bu problemi bu şekilde aşabileceğimi zannediyorum.

daha değişik önerileriniz veya aklınıza gelen değişik bir fikir olduğunda paylaşırsanız çok sevinirim .

çok teşekkürler


Projenin Project1 Unitinden Ana start ünit

application.createform ... ünitID

gibi olan formları silerseniz açılışta bütün formlarınız belleğe yüklenmez diyelim 10 tane form kullanıyorsunuz.

Application.Createform(TMainform,Mainform);
Application.Run;

Derseniz sadece Mainform belleğe yüklenir... Diğer formlar yüklenmez gerekli yerde şu şekilde çağırırsınız..

Application.Createform(TForm1,Form1);

Bu sayede belleği yönetebilirsin.. Bir diğer yöntem ise formları DLL dosyasına gömmektir Exe boyutunu küçük tutup sadece DLL üzerinden form ve nesneleri yönetirsen salt exe dosyasından çok hızlı çalışabilirsin...



İyi Çalışmalar...


Bu mesaja 2 cevap geldi.
S
20 yıl
Yüzbaşı

Amacını baştan söyLeseydin arkadaş daha koLay bi yoL biliyomuş zaten



M
20 yıl
Teğmen
Konu Sahibi

quote:

Orjinalden alıntı: Aspci79


quote:

Orjinalden alıntı: metalkesh

quote:

Orjinalden alıntı: serserfan

2. Formu görsel oLarak yarat butonLa sadece Cagırırsın bu formu ne fark ederki ?


ilk form haricinde diğer büyün formları ve formda kullanacağım bütün buttonları,editleri.... yaratıp işim bittiğinde yok ederek programın bellekte kapladığı alanı minimum boyuta indirmek istiyorum. ilk önce senin önerdiğin şekildede denemiştim fakat programın exe si 1.20 ile 1.50 MB arası, programın bellekte kapladığı yerde 5MB gibi bir yer kaplıyor.ben bu problemi bu şekilde aşabileceğimi zannediyorum.

daha değişik önerileriniz veya aklınıza gelen değişik bir fikir olduğunda paylaşırsanız çok sevinirim .

çok teşekkürler


Projenin Project1 Unitinden Ana start ünit

application.createform ... ünitID

gibi olan formları silerseniz açılışta bütün formlarınız belleğe yüklenmez diyelim 10 tane form kullanıyorsunuz.

Application.Createform(TMainform,Mainform);
Application.Run;

Derseniz sadece Mainform belleğe yüklenir... Diğer formlar yüklenmez gerekli yerde şu şekilde çağırırsınız..

Application.Createform(TForm1,Form1);

Bu sayede belleği yönetebilirsin.. Bir diğer yöntem ise formları DLL dosyasına gömmektir Exe boyutunu küçük tutup sadece DLL üzerinden form ve nesneleri yönetirsen salt exe dosyasından çok hızlı çalışabilirsin...



İyi Çalışmalar...



arkadaşım cok saol, bu şekilde kullanabileceğimi bilmiyordum.yeni bişey öğrenmiş oldum...

cevap ve fikir veren herkeze çok teşekkürler...


Bu mesaja 1 cevap geldi.
İ
20 yıl
Binbaşı

bir şey deil ...



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.