Subject | RE: [IBO] How to control key enter as tab in TIB_Query |
---|---|
Author | Nico Callewaert |
Post date | 2001-03-27T09:21:28Z |
You mean in a edit box control or something ? Like this is one solution :
- Set the KeyPreview property of the form = True
- Write a KeyUp event for the form, example :
procedure TPurchase_Frm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: begin
Key := 0;
Perform (CM_DialogKey, VK_TAB, 0);
end;
end;
end;
Regards,
Nico Callewaert
ncw@...
nico.callewaert@...
-----Oorspronkelijk bericht-----
Van: prasit1961@... [mailto:prasit1961@...]
Verzonden: dinsdag 27 maart 2001 11:18
Aan: IBObjects@yahoogroups.com
Onderwerp: [IBO] How to control key enter as tab in TIB_Query
please tell me how to control key ENTER as TAB in TIB_Query.
Thanks.
Prasit Wiseschaiya.
Yahoo! Groups Sponsor
Click Here to Find Software Faster
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
- Set the KeyPreview property of the form = True
- Write a KeyUp event for the form, example :
procedure TPurchase_Frm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: begin
Key := 0;
Perform (CM_DialogKey, VK_TAB, 0);
end;
end;
end;
Regards,
Nico Callewaert
ncw@...
nico.callewaert@...
-----Oorspronkelijk bericht-----
Van: prasit1961@... [mailto:prasit1961@...]
Verzonden: dinsdag 27 maart 2001 11:18
Aan: IBObjects@yahoogroups.com
Onderwerp: [IBO] How to control key enter as tab in TIB_Query
please tell me how to control key ENTER as TAB in TIB_Query.
Thanks.
Prasit Wiseschaiya.
Yahoo! Groups Sponsor
Click Here to Find Software Faster
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]