Picklist des DBGrids öffnen...

[eddy]

Hallo barnti,

es funktioniert:

Code:

procedure TFAuf.dbg32ColEnter(Sender: TObject);
var
  si : integer;
  fldn : string;
begin
  if (dgEditing in dbg32.Options) then begin
    si := dbg32.SelectedIndex;
    fldn := lower(dbg32.Columns.Items[si].FieldName);
    if fldn = 'posart' then begin
      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;
end;

In meiner ersten Spalte (PosArt) habe ich eine Pickliste hinterlegt. Diese kann aktiviert werden, wenn ich auf den Pfeil abwärts clicke, Alt-Down betätige oder von einer anderen Spalte kommend in diese Spalte clicke.

mfg
eddy