Re: Select All Shortcut

Return to index

Author

Message

Sergey Tkachenko

Posted: 08/27/2004 13:11:32

1) Define some constant > WM_USER

const WM_RVSELECTALL = WM_USER+5;

If you need several such constants, they all must have unique values.

2) In form declaration:

procedure WMRVSelectAll(var Msg: TMessage); message WM_RVSELECTALL;

3) In implementation

procedure TForm1.WMRVSelectAll(var Msg: TMessage);

begin

  rve.SelectAll;

end;

4) Call in OnKeyDown:

PostMessage(Handle, WM_RVSELECTALL, 0, 0);

This technique is used in demo

http://www.trichview.com/support/files/fieldsincells.zip to move caret to

another cell in table.OnCellEditing.

>

> Hello Sergey,

>

> that would be a great help, if you could give me an example of this!

> Thank you!

>  Holger