Programım Kilitlenmesin Diyorsanız!

[Trial_Cooder]

Aşağıda anlattığımı çoğumuz biliyoruz ama olsun bilmeyenler var

Arkadaşlar hepimiz uzun bir döngü yaptığımızda bilmem farkına vardıkmı programımız kilitleniyor ve döngü bittikten sonra tekrar aktif oluyor. Eğer Program işlem yaparken başka işlemlerde yapabileyim diyorsanız

o komutu işlemeye başlamadan önce

Application.ProcessMessages; Yazın.

örn:
aşağıdakini yazın ve çalıştırın
while true do

programınız kilitlenecek

Application.ProcessMessages;
While True Do

Programınız kilitlenmeyecek..

[Murat DİCLE]

süper bir makale...


verdiğin her iki örnekte de program kilitlenir..

Hem bu makale bu kadar kısa olmamalı, bana fıkra gibi geldi...

iyi bak.

[Trial_Cooder]

Evet Bi Terslik Var, Makale İyi Olunca Sesin Çıkmıyo, Kötü Olunca Eleştiriyosun

[Murat DİCLE]

iyinin üstüne ne söylenebilir ki..

bence sen laf yetiştireceğine, makaleciğini düzelt..


senin yazdıklarını bi daha dikte edeyim...

bu programı kilitler..

Kod: Tümünü seç

// sonsuz döngü, bu döngüden asla çıkılamaz..
while true do ;

bu da programı kilitler..

Kod: Tümünü seç

// bir sonsuz döngü daha..
while true do Application.ProgressMessage;

[Trial_Cooder]

C/P'den Bu Kadar
İdare Et

[mkysoft]

döngü içine yazarsak en azından form refresh olur.

[nitro]

s.a.
bu application.ProgressMessage olayına millet "tavsiye edilmez" falan diyodu. niye ki acaba?

[tuanna]

döngü içine yazarsak en azından form refresh olur.

evet dönğü içine yazarsan kullancııyı kandırırısın...
bu su demek gibi bir sey olur...

Ben en hızlı şoförüm kesin kaza yapacam
ama bu bir süre idare ederim...

[huseyinkucuk]

tuanna, benzetmelerine hayranım . Bana da 'result:=nesne;nesne.free' soruma karşılık işçi örneğini vermiştin ("işçiyi kov, sonra da bana iş yap de"). Sen bu formun örneklendirici üyesi ol abi Süpersin...

[Murat DİCLE]

Applicatiom.ProggressMessage;

faydalıdır, ancak Windows Mesaj sistemini kullanıyorsanız, kullanmadan önce düşünmeniz gerekiyor.

[Akin_Delphi]

s.a.
bu application.ProgressMessage olayına millet "tavsiye edilmez" falan diyodu. niye ki acaba?

A.S.
Hatırladığım kadarıyla kanallar içerisindeki döngülerde de tavsiye edilmiyor. Saygılar

[turkcanfidan]

Diyelimki bir döngü içinde birçok kayıt üzerinde bir işlem yapıyorsunuz, programı istediğiniz zaman sonlandırmak için aşağıdaki gibi bir mantık kullanabilirsiniz. Application.ProcessMessages kullanılmadığında yine kilitlenecektir.

Kod: Tümünü seç

procedure TForm1.btBaslatClick(Sender: TObject);
begin
   dur := false;
   btDur.Enabled := True;
   btBaslat.Enabled := False;

   while not Table1.Eof do
      begin
      Table1.Edit;
      Table1.Post;
      Table1.Next;
      if dur then exit;
      Application.ProcessMessages;
      end;
end;

procedure TForm1.btDurClick(Sender: TObject);
begin
   dur := true;
   btBaslat.Enabled := True;
   btDur.Enabled := False;
end;

[Murat DİCLE]

Bak bu güzel bir örnekti. turkcanfidan arkadaşa teşekkürler. makale yazarına da "nanik :lol"

Not: if dur then exit; yerine if dur then break; olsa iyi olmaz mıydı?

saygılar..

[Trial_Cooder]

Kandırdımm....
Bende Bu Sorunun Cevabını Arıyodum, Soru Olarak Sorsam Cevap Gelmez. Bende Bişey Salliyim Yanlış Diye Düzeltsinler Banada Cevap Olur Dedim

Şaka Şaka Biyerden C/P Yaptım Ama, Denemeden Yaptığım İçin C/P'yi Böyle Oldu

[tuanna]

Kandırdımm....
Bende Bu Sorunun Cevabını Arıyodum, Soru Olarak Sorsam Cevap Gelmez. Bende Bişey Salliyim Yanlış Diye Düzeltsinler Banada Cevap Olur Dedim

Şaka Şaka Biyerden C/P Yaptım Ama, Denemeden Yaptığım İçin C/P'yi Böyle Oldu

asıl sorun olan kısım bunu makale olarak vermendi...bence