Formdaki Herhangi Bir Nesnenin Bütün Özelliklerini Saklama

[pro_imaj]

Merhaba Arkadaşlar;

 

Örnek Olarak;

 

Formda 1 Adet Edit var diyelim.

 

Bu editin bütün özelliklerini kaydetmek istiyorum sonrasında da form create edilirken bu özelliklere göre çağırmak istiyorum.

 

Yani kullanıcı Edit'in yazı rengini, boyutunu veya ekrandaki konumu veya DBedit ise datasource bilgisini gibi özelliklerini değiştirebileceği bir proje düşünüyorum. Sonrasında kullanıcı kaydet dediği zaman artık o nesne son ayarlanan özelliklerle ekrana gelsin istiyorum. Bunu nasıl yapabilirim.

 

Delphi tarafında yıllar önce bir componenetle tek tuşla bunu yapabiliyordum fakat bir türlü ulaşamadım.

 

Yardımlarınız için teşekkürler.

İyi çalışmalar.

[bugra]

Merhabalar

 

Componentlerin propertieslerini Stream ile saklayabilirsiniz.

 

Örneğin:

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  Str: TFileStream;
begin
  UniButton2.Caption := 'a';
  UniButton1.Width := 150;

  str := TFileStream.Create(UniServerModule.FilesFolder+'Properties.txt', fmOpenReadWrite+fmCreate);
  try
    str.WriteComponent(UniButton2);
    str.WriteComponent(UniButton1);
  finally
    str.Free;
  end;
end;

formun create eventinde ya da herhangi bir eventte geri çağırabilirsiniz.

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  Str: TFileStream;
begin

 if FileExists(UniServerModule.FilesFolder+'Properties.txt') then
 begin
    str := TFileStream.Create(UniServerModule.FilesFolder+'Properties.txt', fmOpenRead);
    try
      str.ReadComponent(UniButton2);
      str.ReadComponent(UniButton1);
    finally
      str.Free;
    end;
  end
  else
    ShowMessage('Save First!');
end;



procedure TMainForm.UniButton3Click(Sender: TObject);
var
  Str: TFileStream;
begin

  if FileExists(UniServerModule.FilesFolder+'Properties.txt') then
  begin
    str := TFileStream.Create(UniServerModule.FilesFolder+'Properties.txt', fmOpenRead);
    try
      str.ReadComponent(UniButton2);
      str.ReadComponent(UniButton1);
    finally
      str.Free;
    end;
  end
  else
    ShowMessage('Save First!');
end;

ComponentPropertiesChange.rar

[pro_imaj]

Merhaba @BugraYener

 

Öncelikle çok teşekkür ederim güzel bir çalışma yapmışsınız.

 

Şimdi uygulamaya çalışıyorumda, siz Componentleri sabit yazmışsınız yani Button1 ve Button2 şeklinde, Ben bu componentleri Runtme da oluşturuyorum. UniDraggable örneğindeki gibi. Kullanıcının oluşturduğu componentleri nasıl bulup kaydedeceğim. FindComponent komutuyla uğraştım fakat invalid class typeclass hatası alıyorum.

 

Yardımlarınız için teşekkürler.

İyi çalışmalar.

[Farshad Mohajeri]

Örnekteki gibi

Parent.ControlCount

ve

Parent.Controls[]

üzerinden ulaşabilirsiniz.