[Lazarus] Newbie questions

Luca Olivetti luca at wetron.es
Wed May 7 16:04:05 CEST 2008


En/na Bill de Carle ha escrit:
>
>> For example:
>>
>> TForm1.Form1KeyPress(Sender: TObject; var Key: Char);
>> begin
>>    if Key = 32 then
>>      PerformTab(True);
>> end;
> 
> Although this works, it should be noted that the results are not 
> identical when using the space bar and the tab key.  The tab key 
> simply moves the cursor to the next input box whereas the space bar 
> first appends a space character to the end of the text in the edit 
> box, then performs the tab function.


You can try (untested)

     if Key = #32 then Key:=#9

Bye
-- 
Luca Olivetti
Wetron Automatización S.A. http://www.wetron.es/
Tel. +34 93 5883004      Fax +34 93 5883007



More information about the Lazarus mailing list