29-09-2018, Saat: 13:03
İyi günler
Kullanıcı kolaylığı olsun diye
Bilgi_doldur procedure aşağıdaki 5 olay ile çağırıyorum.
gridcellclik , keyup ve keydown olaylarında editlere griddeki seçili bilgiler sorunsuz geliyor.
mousewhellup ve down da ise bir önceki veya bir sonraki kayıt geliyor.
mouse orta tekerleğini hızlı veya yavaş çevirme sonucu değiştirmiyor.
Bu konuda bilgi verebilir misiniz.
sorunu windows video kaydetme ile kaydettim ama 20 saniye 10 mb tutuyor.
Kullanıcı kolaylığı olsun diye
Bilgi_doldur procedure aşağıdaki 5 olay ile çağırıyorum.
gridcellclik , keyup ve keydown olaylarında editlere griddeki seçili bilgiler sorunsuz geliyor.
mousewhellup ve down da ise bir önceki veya bir sonraki kayıt geliyor.
mouse orta tekerleğini hızlı veya yavaş çevirme sonucu değiştirmiyor.
Bu konuda bilgi verebilir misiniz.
sorunu windows video kaydetme ile kaydettim ama 20 saniye 10 mb tutuyor.
procedure Tmodel_form.model_gridCellClick(Column: TColumn); begin bilgi_doldur; end; procedure Tmodel_form.model_gridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin bilgi_doldur; end; procedure Tmodel_form.model_gridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin bilgi_doldur; end; procedure Tmodel_form.model_gridMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin bilgi_doldur; end; procedure Tmodel_form.model_gridMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin bilgi_doldur; end;
Procedure Tmodel_form.bilgi_doldur; begin model_edit_temizle; // editlerin içini boşalt model_data_al; // model_sorgu_dateset değerlerini editlere yaz edit_enabled_false; // buttonları sadece gezinme olarak false/true yaz kayit_durumu; // ilk kayıt veya son kayıtta ise buttonları ayarla end;
procedure Tmodel_form.model_data_al; begin son_kayit:=data_form.model_sorgu.Recno; edit_modelerpkodu.Text := trim(data_form.model_sorgu.FieldByName('MODEL_erp_KODU').Text); edit_modelstokkodu.Text := trim(data_form.model_sorgu.FieldByName('MODEL_STOK_KODU').Text); edit_modeladi.Text := trim(data_form.model_sorgu.FieldByName('MODEL_ADI').Text); edit_modelgrubu.Text := trim(data_form.model_sorgu.FieldByName('MODEL_GRUBU').Text); edit_modelozelkod.Text := trim(data_form.model_sorgu.FieldByName('MODEL_OZ').Text); edit_modelmuhasebekodu.Text := trim(data_form.model_sorgu.FieldByName('MODEL_MUHASEBE_KODU').Text); dosya_ad:= trim(data_form.model_sorgu.FieldByName('MODEL_RESIM').text); // model resmi klasörde yoksa if not FileExists(cal_yol + 'data\rsm\model\'+dosya_ad) then dosya_ad := 'resimyok.jpg'; modelresmi_image.Picture.LoadFromFile(cal_yol + 'data\rsm\model\'+dosya_ad); end;