formun ekran, takılması / donması

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

formun ekran, takılması / donması

Mesaj gönderen erdogan_ozkaya »

Merhaba Arkadaşlar,


aşağıdaki kod ile form içinde DEPO_KART_LISTESI pencere açıyorum normal çalışıyor sorun yok fakat açıp kapattıktan sonra başka bir yerde aynı pencereyi showmodal yaptığımda ekran işlem yapmıyor tab tuşu ilerliyor ama ekran donuyor acaba nedeni ne olabilir formu kapatırken birşeymi eklemeliyim ?


Kod: Tümünü seç

procedure TANA_SAYFA.DepoArama1Click(Sender: TObject);
 var
   r : TRect;
begin
       Windows.SetParent(DEPO_KART_LISTESI.Handle, ANA_SAYFA.pnlANA_PANEL.Handle);
       GetWindowRect(DEPO_KART_LISTESI.Handle, r);
            DEPO_KART_LISTESI.Left := -r.Left +5;
            DEPO_KART_LISTESI.Top := 5;
            DEPO_KART_LISTESI.Show;
       GetWindowRect(DEPO_KART_LISTESI.Handle, r);
end;
Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 829
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:

Re: formun ekran, takılması / donması

Mesaj gönderen G.Arkas »

Projeye bir adet IdAntiFreeze ekleyerek dener misin?
Resim
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: formun ekran, takılması / donması

Mesaj gönderen erdogan_ozkaya »

Cevabınız için teşekkür ederim,

uses Idantifreeze;

formun close bunumu yazayım yani ?
TIdAntiFreeze.Create(Self);
Cevapla