Dosya çağırma

[delphikursu]

iyigünler richedit1 nesnesine uzun bir dosya cağırıyorum cağırması biraz vakit alıyor ben buna için çağır butonuna bastıkdan sonra lütfen bekleyindiye yazısı geleçek taki dosya açılana kadar koymak istiyorum bunu nasıl yapabilirim

[oguzozturk74]

Bunun için bir tane form oluşturup içine bir tane Progress Bar koyarsınız ve DosyaYükle komutundan sonra Progress Bar ı formun açılması ile birlikte çalıştırısınız ve ProgressBar.Load işlemi bitince de açtığınız formu kapatırsınız.

[ertug]

Merhaba,

Öncelikle küçük bir form hazırlayın, ismini (WaitForm) ve (BorderStyle) özelliğini (bsNone), (FormStyle) özelliğini (fsStayOnTop) ve (Position) özelliğini (poOwnerFormCenter) yapın. İçerisine bir yazı veya resim koyun ve kullanıcıya beklemesi gerektiğini bildirin.

"RichEdit"in satırlarını yüklerken aşağıdaki gibi bir kod kullanabilirsiniz.

Kod: Tümünü seç

{ test edilmemiş }
  WaitForm := TWaitForm.Create(Self);
  try
    WaitForm.Show;
    WaitForm.Update;
    <RichEdit>.Lines.LoadFromFile(...);
  finally
    WaitForm.Hide;
    FreeAndNil(WaitForm);
  end;