Form style özelliğini databaseden alma

[brs]

Selamlar...

Projemde kullanıcılara farklı style özellikleri seçeneği ekledim.
Proje ilk çalıştığında, sorunsuz olarak çalışıyor, daha sonra style değişiklik yapıldığında bu değişikliği databaseye kayıt ediliyor, buraya kadar hiçbir sıkıntı yok.

Proje kapatılıp tekrar açıldığında, resimdeki deki hatayı alıyorum...



Proje show:

Kod: Tümünü seç

procedure TMainForm.FormShow(Sender: TObject);
begin
    AyarlarDatabase(Sender);
end;

Databaseden styles özelliği alınıyor:

Kod: Tümünü seç

procedure TMainForm.AyarlarDatabase(Sender: TObject);
begin
  try
    with AYARLARQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From AYARLAR');
      Prepared := True;
      Open;
      if Not IsEmpty then 
      begin
        TStyleManager.SetStyle(FieldByName('STYLES').AsString);
      end;
    end;
  except
  end;
end;

Bu durumun nasıl çözebilirim???

[mia]

why you use (Sender)

[brs]

listing data

verileri listelemek için...

[mia]

listing data can be in function or procedure without using (Sender) have you tried (Self) instead of (Sender) ?

[thelvaci]

Aslında hata mesajı kendisini izah ediyor ama yine de yardımcı olmaya çalışayım. Derinlerdeki kod yapısını incelemedim ama SetStyle muhtemelen ilgili formları gizleyip, stili uygulayıp yeniden formları görünür yapıyor. Siz de bu kodu form'un OnShow olayında çağırdığınız için hata alıyorsunuz. Pencerenin görüntülenmesinden sonra çağırmalısınız kodunuzu. Bunun için en basitinden aşağıdaki gibi bir yapı kullanabilirsiniz:

Kod: Tümünü seç

const
  WM_AFTER_SHOW = WM_USER + $1453;
  
  ..
  ..
  ..
  
  procedure WMAfterShow(var Message : TMessage); message WM_AFTER_SHOW;
  
  ..
  ..
  
implementetion

procedure TForm1.WMAfterShow(var Message : TMessage);
begin
   // kodunuzu burada çağırın...
end;

procedure TForm1.FormShow(Sender : TObject);
begin
  PostMessage(Handle, WM_AFTER_SHOW, 0, 0);
end;

[brs]

Aslında hata mesajı kendisini izah ediyor ama yine de yardımcı olmaya çalışayım. Derinlerdeki kod yapısını incelemedim ama SetStyle muhtemelen ilgili formları gizleyip, stili uygulayıp yeniden formları görünür yapıyor. Siz de bu kodu form'un OnShow olayında çağırdığınız için hata alıyorsunuz. Pencerenin görüntülenmesinden sonra çağırmalısınız kodunuzu. Bunun için en basitinden aşağıdaki gibi bir yapı kullanabilirsiniz:

Kod: Tümünü seç

const
  WM_AFTER_SHOW = WM_USER + $1453;
  
  ..
  ..
  ..
  
  procedure WMAfterShow(var Message : TMessage); message WM_AFTER_SHOW;
  
  ..
  ..
  
implementetion

procedure TForm1.WMAfterShow(var Message : TMessage);
begin
   // kodunuzu burada çağırın...
end;

procedure TForm1.FormShow(Sender : TObject);
begin
  PostMessage(Handle, WM_AFTER_SHOW, 0, 0);
end;

Teşekkür ederim; form açıldıktan sonra timer de kullanabilirdim fakat timer ile programı ağırlaştırır diye vazgeçtim...