tüm programa tek kod..

[interboy]

arkadaşlar programda tüm formlarda ortak kodların olmasını istiyorum meslea program boyunca f8 basınca hesap mak... gibi şeyler. bunu bütün formlara koda olarak girmekten başka çarem varmı. tek ana forma kod yazarak mesela olşmazmı???

[sadettinpolat]

TApllication nesnesini kullanarak yapabilirsiniz.

[mrmarman]

Merhaba...

- Umarım bir cümlede ifade edebilirim. Karışık gelirse söyle...

- Herhangi bir forma ait Unit içerisinde veya başlıbaşına müstakil bir Unit içersindeki procedure(lar) veya fonksiyon(lar); eğer Private kısmı altında değil de Public kısmı altında tanımlanırsa; bu içinde tanımlandığı Unit'in adını diğerlerinde Uses'a eklemek ile programın o bölumlerinde de çalışması otomatik olarak sağlanmış olur...

[oguzozturk74]

veya, formların inherited özelliğini kullanabilirsiniz...

[yusuf simsek]

s.a.

iyi çalışmalar...

@OĞUZ hocam formun inheridet özelliğini nasıl kullanabiliriz? biraz açabilir misiniz?[/quote]

[gkimirti]

3 yada 4 nolu seminerlerin sunularına bakabilirsiniz.

[oguzozturk74]

Gökmen abinin dediği gibi bu seminerlerde detaylı bir şekilde anlatıldı. İzledikten sonra anlamadığınız yer olursa sorun, elimizden geldiği kadar yardım ederiz...

[yusuf simsek]

s.a.

ilginize teşekkür ederim...

konu 3. seminerde geçiyor

yanlız uygulamayı tam olarak anlayamadım...

proporties ile yapmaya çalıştım olmadı...

aslında uğraştığım çok önemli birşey değil de kullanmayı öğrenmek lazım...(edit nesneleri aktifken rengini farklı yapmak istedim.bu işlem içinde her formun altına kod yamak istemedim)

[oguzozturk74]

Inherited (ATA ) formları da aynen bileşenler gibi düşünün (zaten TForm da bir bileşen sonuçta) .

Eğer bir form Inherited edilmiş ise yani başka bir formdan türetilmişse : türetildiği o formda olan tüm özellikleri kendine alır. İşte bu nesne tabanlı programlama oluyor.

Mesela Ata formun OnCreate olayına bir yapılmasını istediğiniz birşeyler yazdınız , artık bu formdan türetilen diğer bütün formlarda o kodu yazmanıza gerek kalmayacak ve o kod çalışacaktır..

Seminerde de hatırladığım kadarı ile OnKeyPress olayında ESC tuşuna basılınca formu kapatan bir olay yazılmıştı. Böylece türetilen diğer bütün formlarda aynı kod çalışacak yani ESC ye basıldığında formumuz kapanacak .

Bir formu Ata form yapmak için
Project --> Add To Repository ile Repository kısmına eklememiz gerekiyor, daha sonra oluşturacağımız formları New ile bu ata formu seçerek oluşturuyoruz..

Böylece projelerimizde kullanacağımız genel bir Form Ağacı oluşturabiliriz.

[interboy]

arkadaşlar teşekkür ederim
ama ya ben tüm formları oluşturmuşsam.
yani ben programdaki tüm fprmları oluşturdum.ama tüm formlarda olması gereken ortak kodlar war. bunları sonradan nasıl eklerim???
kolay gelsin

[yusuf simsek]

@oguz hocam çok teşekkür ederim...

olayı şimdi anladım...

Semineri baştan sona izlemeye zamanım olmadığı için atlayarak seyrettim.
Örnek verdiğiniz yeri de arada atlamışım demekki...

Yapılması gereken iş seminerleri baştan sona seyretmek


@interboy arkadaşım

formunun PUBLIC kısmında procedure tanımla ve CTRL+SHIFT+C tuşları yardımıyla procedurenin gövdesini oluştur.Yapmak istediğin kodları yaz.

Diğer formunda IMPLEMENTATION kısmı altında " USES Form_adi " yaz..
Çagırmak istediğin yerde de sadece procedurenin adını yazman yeterli...
eğer çağırdığın orma bir değer döndereceksen FUNCTION kullanmanı tavsiye ederim...

1. form

Kod: Tümünü seç

  
unit unit1;

interface

uses
  Windows, Messages, SysUtils,.................
type
  TForm1 = class(TForm)


public

procedure islem; //********** genel procedure bloğu

  end;

...
...
implementation

procedure islem
begin
...
...
end;

2. form

Kod: Tümünü seç

unit unit2;

interface

uses
  Windows, Messages, SysUtils,.................
type
  TForm1 = class(TForm)
...
...
implementation

uses UNIT1;

procedure button1.click();
begin
...
...
       islem; // tanımlanan PROCEDURE ÇAĞRILIYOR
...
...
end;

[sadettinpolat]

arkadaşlar teşekkür ederim
ama ya ben tüm formları oluşturmuşsam.
yani ben programdaki tüm fprmları oluşturdum.ama tüm formlarda olması gereken ortak kodlar war. bunları sonradan nasıl eklerim???
kolay gelsin

yaw @interboy kardeşim. senin istediğin olayı ben sorunun hemen ardından vermiştim. hiç incelemedin galiba...

forma bir tane TApplicationEvents nesnesi koy. Additional sekmesinde bulabilirsin kendisini veya Application nesnesinin OnShortCut olayını da kullanabilirsin. ikiside aynı ama sen TApplicationEvents nesnesini kullan. sonra bu nesnenin OnShortCut adlı bir olayı var. Bu olaya aşağıdaki gibi bir kod yazman senin için yeterli.

Kod: Tümünü seç

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
if msg.CharCode = vk_f8 Then
  ShowMessage('a');
end;

hangi formda olursan ol f8 tuşuna bastığın zaman burdaki kodlar çalışır...

[interboy]

arkadaşlar tşk ederim.
sadettinpolat hocam kusura bakma atlamışım:)
kolay gelsin..