Cursor position in TValueListEditor

[aik2]

Hello all !

Does anybody know how to manage a cursor position in the cell of the TValueListEditor ?
And maybe anybody know how to make a highlight of the current cell ?

Thanks in advance,
Ilya

 

[donvittorio]

To highlight the current cell, set goDrawFocusSelected to true in the Options property of the TValueListEditor.
I'm not sure how best to control the cursor position in a cell, you could try using WM_KEYDOWN messages, e.g.

  SendMessage(edit,WM_KEYDOWN,VK_END,0);

Steve

 

[aik2]

The problem, that when I'm moving by arrows, cell is selected, but I want move to next cell by Enter key and that's the case when cell is not selected and cursor stays at end of cell.

SendMessage didn't help

Ilya

 

[donvittorio]

In that case try using the KeyDown event, this example will move you on to the next column when the user presses the return (i.e. enter) key

procedure TForm1.ValueListEditor1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    ValueListEditor1.Col := ValueListEditor1.Col + 1;
end;

Steve

 

[aik2]

I do exactly like this, but cursor stays at the end of text in the cell and this cell is not highlighted

 

[donvittorio]

There is a problem in using the return key to do what you want, because the return key is used to enable the user to edit the values in the cells. This is why the cell is not highlighted and the cursor is shown in the cell, because pressing the return key switches on editing!
You could prevent the return key from switching editing on/off like this:

procedure TForm1.ValueListEditor1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;
end;

but then the user would have no way of being able to edit the values in the cells!
I don't think there's really any way around this, unless you create your own component inherited from TValueListEditor, in which case you will have access to the ShowEditor and HideEditor methods (these are protected methods of TCustomGrid). That wouldn't be too hard, but it's a case of how confident you are creating your own components and how much effort you want to put in!

Steve

 

[BobbaFet]

You could off course do something with a checkbox to enable
editing:

procedure TForm1.ValueListEditor1KeyPress(Sender: TObject; var Key: Char);
begin
if not chbEnableEditing.Checked then
   if Key = #13 then
      Key := #0;
end;

BobbaFet

if not Programming = 'Severe Migraine' then
                       ShowMessage('Eureka!');

 

[aik2]

Thank you ! Code for KeyPress is helps!