Form inheritance ve grid ayarlarını kaydetmek

[ikutluay]

Merhaba

Kullandığım kayıt liste formunda kullandığım grid in sütun sıralamasını ve genişliklerine ini dosyasına kayıt ediyorum. Sorunum şurada başlıyor. Bu formu inherit ederek yüzlerce ayrı tabloya bağlı olarak kullanıyorum ve her gridde o komuta şu isimle kaydet demek istemiyorum.

Ana formda şu isimle kaydet dersem olmuyor. inherit edilen formun adına göre kayıt edilmesi lazım. ana formdan o degere göre nasıl yapılabilir.

Kısaca ızgara ayarlarını inherit edilen formdan kaydedeceğim ama inherit edilmiş formun adıyla.

Saygılar

[unicorn64]

classname özelliğini kullanabilirsiniz sanırım.

Kod: Tümünü seç

type
   TMyForm=class(TForm)
      myGrid:TDbGrid;
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
   protected 
      procedure GridKaydet;
   end;


   TMyInheritedForm=class(TMyForm)
   
   end;




procedure TMyForm.GridKaydet;
var
  ini:TIniFile;
  yol:string;
begin
  yol:=ExtractFilePath(Application.ExeName);
  yol:=yol+'GridAyar\';
  yol:=yol+self.ClassName;
  ini:=TIniFile.Create(yol);
  
  //.................
  ini.free;
   
end;


procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  GridKaydet;
end;

[ikutluay]

cevap için teşekkürler.

Adminlerden rica ediyorum. bağlantım koptuğundan formu tekrar göndermişim. 2 mesajdfan biri silinebilirmi yada threadler diğerine taşınabilirmi. Cevaplar herkesin işine yarayabilir çünkü

[aslangeri]

o zaman şöyle yapalım.
http://delphiturkiye.com/forum/viewtopi ... =2&t=27331