dbgrid ve dbeditlerde aynı formda enter'la dolaşmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

dbgrid ve dbeditlerde aynı formda enter'la dolaşmak

Mesaj gönderen must_sargin »

iyi çalışmalar,

procedure TFmArac.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13then begin Key:=0;Perform(WM_NEXTDLGCTL,byte(Shift=[ssShift]),0);end;
end;

procedure TFmArac.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl
else
begin
DM.AracTable.next;
end;
end;

komutlarını giriyorum editler arası enter ile dolaşıyorum ama dbgrid üzerindeyken enter'a bastığımda hiçbir işlem yapmıyor. acaba nasıl çözebilirim? şimdiden teşekkürler.
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »


Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

Mesaj gönderen must_sargin »

iyi çalışmalar,
yardımlarınız için teşekkür ederim. aynen istediğim işi yapıyor.
Cevapla