TMLDGrid

Aurelio Rodriguez Duran

Hi guys, I have this code, and dont work,help me plesase:

procedure TForm1.lmdgrd1KeyPress(Sender: TObject; var Key: Char);
begin                      1
    if ((Key >= 'a') and (Key <= 'z')) or (key = 'ñ') then
        Key := UpCase(Key);
end;

procedure TForm1.lmdgrd1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = VK_RETURN then
    begin
        if lmdgrd1.CurrentColumn < 4 then
            lmdgrd1.CurrentColumn := lmdgrd1.CurrentColumn + 1
        else
        begin
            lmdgrd1.DataRowCount := lmdgrd1.DataRowCount + 1;
            lmdgrd1.CurrentRow := lmdgrd1.DataRowCount - 1;
            lmdgrd1.CurrentColumn := 0;
        end;

    end;
end;

I want capture data in grid.

Regrads

Eugene Balabuev (LMD)

Hi,

Currently, this is not possible. I've made modifications, which will be available in the next release.

Aurelio Rodriguez Duran

Thank you, do you have any idea about reléase date?, is possible copy data to clipboard?

Best regards