OnKeyPress

[bgoktas]

formumda iki tane buton var .
formumun key preview=true
onkey press olayına;

Kod: Tümünü seç

procedure Tbordrolar.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#27 then
 begin
  if messagedlg('İşlemi iptal etmek istiyor musunuz ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then durdur:=true
 end;
end;

yazdım .

Button1 e basdığımda yapılan işlemi durdurmak için gerekli soruyu soruyor. ve sorunsuz çalışıyor. işlemi kesmek istiyorsam kesiyor, kesmek istemiyorsam kesmiyor.

Fakat buton2'ye bastığımda bu procedureyi çalıştırmıyor. işlemi tamamen bitirdikten sonra soruyu soruyor.

Kolay gelsin

[TRSoft]

Açıkcası sorunu tam olarak anlayamadım...
Şimdi öncelikle Buton1 ve Buton2 hangi olayları yönetiyör.
Yukarıda yazdığın procedure ile klavyeden ESC tuşunu kontrol etmişsin bunları butonlara ne şekilde bağladın ki orayı anlamadım..
-Ayrıca Durdur adında global bir değişken tanımlamışsın. Bunun kontrolünü yanlış yerde yapıyor olabilirmisin..

[bgoktas]

button1 ve button2 bağımsız işler yapıyor. formun herhangi bir yerindeyken esc ye basdığımzaman button1 veya button2 ye basmamdan dolayı çalışan procedureyi durdurmak istiyorum. button1'in proceduresi çalışırken esc ye basdığımda yukarıdaki if'e giriyor ve işlemi kesiyor.
button2'ye basdığımda işlem tamamen bittikten sonra giriyor.
global değişken ise procedurelerde işlemi kesmek için,
kontrollerde birsorun yok...

[gkimirti]

her ikisinde de Application.ProcessMessages kullanıyormusun?

[bgoktas]

tamamdır application.ProcessMessages yazınca halloldu
ben sadece birine yazmışım teşekkürler...

[gkimirti]

olur boyle programcı korlukleri

[akgun83]

pardon Application.ProcessMessages ne için kullanılıyor. Ne işe yarar?

[mussimsek]

bir işlem yaparken programda yapılan diğer işlemlerinde çalışmasını sağlıyor. Normalde bir database operasyonu sırasında kum saati çıkmışken butona vs. basamazsınız. Program (Application) bunları (bu mesajları) işlemez. Bu komut, işleme az bir ara ver, uygulumanın mesajlarını işle komutu verir.

kolay gelsin.