WinProc?
Edward Koryagin
--- On Mon, 5/10/09, John Bird <johnkb...@paradise.net.nz> wrote:
> From: John Bird <johnkb...@paradise.net.nz>
> Subject: [DUG] Stringgrid - intercepting keys
> To: "NZ Borland Developers Group - Delphi List" <delphi@delphi.org.nz>
> Received: Monday, 5 October, 2009, 5:25 PM
> For a long time I have been
> intercepting keys such as Escape/Enter/Tab no
> problem
>
> I have been wanting to put a simple search facility in a
> string grid, and
> would like to intercept Ctrl/F and F3.....but the code as I
> am using does
> not get them (D2007) - they are just ignored.
>
> Looks like the only characters I can intercept are Tab,
> Enter and Escape...
>
> Any suggestions?
>
>
> procedure TfrmTimeSh2.CMDialogKey(var Msg: TWMKEY);
> {
> This converts ENTER key messages to TAB
> key messages, provided a few
> conditions hold
> }
> begin
> if (ActiveControl is
> TCustomEdit)
> or (ActiveControl is TStringGrid)
> then
> begin
> ATPKeyDir:='';
> if Msg.CharCode = VK_RETURN
> then
> begin
> Msg.CharCode :=
> VK_TAB;
> ATPKeyDir:='Next';
> end;
> if Msg.Charcode = VK_ESCAPE
> then
> begin
> Msg.CharCode :=
> VK_TAB;
> ATPKeyDir:='Prev';
> end;
> if Msg.Charcode = VK_F2
> then
> <===
> never
> intercepted
> begin
>
> xcGridFind((ActiveControl as
> TStringGrid),FindStr,strFound);
> end;
> if Msg.Charcode = VK_F3
> then
> <=== never intercepted
> begin
>
> xcGridFindNext((ActiveControl as
> TStringGrid),FindStr,strFound);
> end;
> end;
> inherited;
> end;
>
>
> John
>
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi@delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-requ...@delphi.org.nz
> with Subject: unsubscribe
>
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
unsubscribe
