Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

TMLDGrid

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

Comments

Sign In or Register to comment.