DBgrid icinden edit1 re gön

[zengin]

Merhaba Arkadaşlar Herkese Kolay Gelsin Benim Kücük Bir Bilgiye İhtiyacım var
dbgrid icinden edit1 Re Gönderme yapacagım
örnek kodla DBedit icinde oluyor fakat benim istedigim olay ise
Dbgrid icinden yazarken aynı işlemin edit1 iceriginede yazması anında yapabilmesi

procedure TForm1.Edit1Change(Sender: TObject);
begin
DBedit1.Text:=edit1.Text;
end;

[webaytek]

ben olsam

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
DBedit1.Text:=edit1.Text; 
end;

kodunu bir timera bağlarım ve onchange olayına timer1.enabled:=true yaparım gerisini sen düşün

[zengin]

webaytek kardeş tamamda benim istedigim dbgridin icerisinden yazarken

beraber edit1 rede yazsın

[naile]

Gridinin bağlı olduğu datasete fieldları ekle. İstediğin fieldın onChange eventına

Kod: Tümünü seç

  Edit1.Text := ADOQuery1alan1.Text;

O field değiştiği zaman edite de aynı değeri yazıyor. Belki bu işini görür.

[aslangeri]

S.A.
gridin on keypres eventine

Kod: Tümünü seç

  sendmessage(edit1.handle,Wm_char,word(key),0);

yazarsan istediğin işlemi yapması lazım

[zengin]

aslangeri kardeşim yazmış oldugun kodlar calışıyor cok taşekkür ederim
ve ayrıca ilgilenen arkadaşlarımada cok taşekkür ederim
saygılarımla hoşca kalın
zengin

[zengin]

arkadaşlar merhaba sizleride rahatsız ediyorum fakat benim şu kodlarımda eksiklerim var bana bu konuda yardımcı olur iseniz sevinirim


procedure TMHAREKET.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
sendmessage(MUSHARSTOK.Edit1.handle,Wm_char,word(key),0);
//bu kodlar calışıyor fakat entıra basılınca pat pat ses veriyor bu konuda yardım lütven?
sendmessage(MUSHARGUNLUK.Edit1.handle,Wm_char,word(key),0);

if (GetKeyState(VK_CAPITAL) and $01)<>1 then
Showmessage ('Caps lock Tuşu Kapalı Önce onu ac Lütven?');

if dbgrid1.Columns[dbgrid1.SelectedIndex].FieldName='Aciklama' then
//burası şu an aciklama olan kolana Bilgi girişi yazarken hemen form 2 devreye giriyor
//oysa ben secim yaptırmak istiyorum benim istedigim olay burada edit veya RadioButtonla
//secim yaptırmak istiyorum bana bu konuda yardımlarınızı bekliyorum ?
form2.showmodal;
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
MHTable1.next;
DBGrid1.Columns[0].field.FocusControl;
end;
end;

[aslangeri]

S.A.
1.entere basınca ses çıkarmasını engellemek için
editin onkeypres eventine

Kod: Tümünü seç

if key=#13 then key:=#0 

2.açıklama alanına gelince direk form2 yi showmodal ayapmışsın. o yüzden direk form2 açılıyor. colum un buttonstyle si cbsauto iken pick liste değer atarsan açılan liste görünür. cbsellipsis yaparsan üçnoktalı düğme olur. dbgrid in oneditbuttonclic indede aktif columna göre hangi alanda tıkladığını bulabilrsin ona göre işlem yapabilirsin.
3.kodlarını code bloğu içince yazarsan daha okunaklı olur.
kolay gelsin.

[zengin]

Aslangeri Kardeşim merhaba sizleride rahatsız ediyorum ilgilendigin icin teşekkür ederim hayırlısı ile senin kodların sayesinde bu olayı cözecem
şimdi hocam (pick liste değer atarsan açılan liste görünür ona göre işlem yapabilirsin)ibaresine nasıl bir form2 ye gidebilirim bunu bana biraz daha
ayrıntılı yaza bilirmisiniz lütven cünkü o an benim form2 ye gidip oradan bilgi almam gerekiyor ve aynı programa dönmem gerekiyor önemli olan
form2 ye gidebilmem hatalı sordum ise şimdiden özür dilerim?

[aslangeri]

Merhaba.
Adım adım işlemleri yapalım
1.dbgridde iki kere tıkladığımızda açılan columnseditörden "Aciklama" alanını seçip buttonstyle özelliğini cbsellipsis yapıyoruz.
Bu işlem dbgridde açıklama alanını seçtiğimiz zaman "..." düğmesinin görünmesini sağlayacak.
2.dbgrid in oneditbuttonclicolayına

Kod: Tümünü seç

 if dbgrd1.selectedfield= tabloadiAciklama then form2.showmodal;

yazıyoruz.
Böylece eğer dbgrid de açıklama alanı seçili iken "..." düğmesine basılırsa form2 nin görnmesini sağlıyoruz.
kolay Gelsin.

[zengin]

Merhaba aslangeri kardeşim göstermiş oldugun kodlarınla ve benimle ilgilendigin icin
dagglar kadar memmun oldum evet programım calışıyor sana ve site üyelrine cok teşekkür
ederim
hoşca kalın saygılarımla

Zengin