Discussion :

[ketthy]

Bonjour

Voila mon soucis j'aimerais que la touche TAB agisse comme l'appuie de la touche ENTER...

Et j'ai deja essayer avec les evenements KeyPress, KeyDown, KeyPress...

J'ai bien tenté avec la procedure WndProc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  if (msg.WParam = 9) and
     not (GetKeyState(vk_control)<0) and
     not (GetKeyState(vk_menu)<0) and
     ( FmInventaire.ActiveControl.Handle =  wwDbGrid_Comptage.Handle ) then
  begin
    if (msg.WParam and $80000000)=0 then
    begin
      msg.WParam := 0;
      msg.Result := 1;
      wwDbGrid_Comptage.Dispatch(Msg);
 
//      if ( (Msg.Msg = WM_KEYUP) OR (Msg.Msg = WM_KEYDOWN) ) then
        wwDbGrid_Comptage.Perform(WM_KEYDOWN, 13, 1);
    end

La tabulation ne fonctionne plus... ca c'est ce que je voulais en partie mais elle n'agit pas comme la touche ENTER...

Alors si vous pouviez m'aider a sortir de cette melasse vous seriez gentil

[Merlin]

Title: How to make the [Enter] key behave like the [Tab] key
Author: Jonas Bilinkevicius
Product: Delphi 1.x (or higher)
Post Date: 10/01/2002

Problem/Question/Abstract:

How to make the [Enter] key behave like the [Tab] key

Answer:

Solve 1:

You need to trap the keystroke and set up your own response to it. Try this: (Note: This will not work within a DBGrid, since the next field is not a separate object.)

procedure TMainForm.FormCreate(Sender: TObject);
begin
keyPreview := true; {To turn the event "ON"}
end;

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;


Solve 2:

Use this code for example for an TEdit's OnKeyPress event:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
SelectNext(Sender as TWinControl, True, True);
Key := #0;
end;
end;

This causes Enter to behave like tab. Now, select all controls on the form you'd like to exhibit this behavior (not Buttons) and go to the Object Inspector and set their OnKeyPress handler to EditKeyPress. Now, each control you selected will process Enter as Tab. If you'd like to handle this at the form (as opposed to control) level, reset all the controls OnKeyPress properties to blank, and set the form's OnKeyPress property to EditKeyPress. Then, change Sender to ActiveControl and set the form's KeyPreview property to true:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
SelectNext(ActiveControl as tWinControl, True, True);
Key := #0;
end;
end;

This will cause each control on the form (that can) to process Enter as Tab.


Solve 3:

Handle this in the OnKeyPress event. The form's KeyPreview property must be set to true.

procedure TFrmEnterTab.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = Chr(VK_RETURN) then
begin
if GetKeyState(VK_SHIFT) < 0 then
SelectNext(ActiveControl, false, true)
else
SelectNext(ActiveControl, true, true);
Key := #0;
end;
end;

[ketthy]

Merci pour ton aide... Je vais essayer de suite