Delphide shift+enter kullanımı - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > Delphi / Kylix > Delphide shift+enter kullanımı
Kategori: Delphi / Kylix
Gönderen: Admin
Tarih: 2011-02-20
Puan: 2   Puan:2 | Katılımcı:13 | Katılımcı : 13
Okunma: 14609
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

procedure TForm1.DBGrid1KeyPress (Sender: TObject; var Key: Char);
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then begin
with (Sender as TDBGrid) do
if selectedindex > 0 then
selectedindex := selectedindex - 1
else begin
DataSource.DataSet.Prior;
selectedindex := fieldcount - 1;
end;
end else begin
with (Sender as TDBGrid) do
if selectedindex < (fieldcount - 1) then
selectedindex := selectedindex + 1
else begin
DataSource.DataSet.Next;
selectedindex := 0;
end;
end;
Key := #0
end;
end;





Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.