Kayıt Yapılıyor!

[loxka]

Enter tuşuyla kayıt yaptırıyorum programa. Forumda naile hanımın verdiği bir koddu sanırım

Kod: Tümünü seç

if key = #13 then
Table1.Post;

formda araştırdım biraz ama tam sonuca ulaşamadım.

enterle kayıt yaparken belli olsun istiyorum. Örneğin mause meşgul gibi olsun yada progressbar gibi birşey. Teşekkürler.

[mussimsek]

http://www.delphiturkiye.com/ipobjpas.htm#fareyi_mesgul

Kolay gelsin.

[aslangeri]

sanırım aşağıdaki kod işini görür

Kod: Tümünü seç

if key=#13then
begin
  try
    screen.cursor:=crhourglass;
    table1.post;
  finally;
    screen.cursor:=crdefault;
  end;
end;

kolay gelsin.

[mrmarman]

Selam...

- @aslangeri'nin cevabi şeklinde uygundur...

- Merak ettiğim bir konu için mesaj yazıyorum. Veritabanında yapılan kayıt ekleme/silme/güncelleme işlemleri, bekleme yapacak kadar uzun sürüyor mu gerçekten ? Yani çözüm olarak sunulan bu cevap dahi belirli belirsiz, ekranda bir görünüp eski haline gelecek...

- İlgili Table'ın kayıt yapıldıktan sonra tetiklenen AfterPost olayına ait procedure'de "kayıt başarıyla yapıldı" şeklinde bir message diyalog'u ekrana yansıtmak da mümkün. Bunu bildirmek istedim.

[mussimsek]

Benim şahsi görüşüm işlem çok kısa sürse bile programda bu mantığı her yerde oturtmak iyi olur. Fare meşgul olsun, tekrar normale dönsün. Bu ister 0,5 sn. sürsün, ister 5 saniye. Kullanıcı işlem yaptığını anlayıp bekler. Öbür türlü hemen başka bir yerlere tıklama faaliyetleri başlıyor

Her kayıttan sonra mesaj biraz sıkıcı olabilir.

Kolay gelsin.

[mrmarman]

@Admin Sözüne katılıyorum. Ben de çok can sıkıcı bulurdum...

Asıl merak ettiğim, bu kısacık süre kullanıcıya bunu bildirmek için yeterli mi

Mesela statusbar'da kırmızı bir imleç kayıt yapıldı deyip, bir süre sonra kaybolsun veya ekranda kayıt mode durumunda iken giriş yapılan fonun renginin Edit/Insert mode iken Sarı, Kayıt sonrası Beyaza dönmesi gibi... bkz.DivXTurk