Mega Code Archive

 

Categories / Delphi / VCL

 

Dbgrid pickliste listesi olan hücrede o hücreye gelindiginde otomatik listeyi versin

// DBGrid Picklist alanına verileriniz varsa o hücreye gelip // otomatik olarak açılacaktır.. procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if Column.PickList.Count > 0 then begin keybd_event(VK_F2,0,0,0); keybd_event(VK_F2,0,KEYEVENTF_KEYUP,0); keybd_event(VK_MENU,0,0,0); keybd_event(VK_DOWN,0,0,0); keybd_event(VK_DOWN,0,KEYEVENTF_KEYUP,0); keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0); end; end;