Control.KeyPress
(gb.qt4)
Event KeyPress ( )
Се објавува кога ќе се притисне тастер на тастатурата кога контролата е во фокус.
Информацијата за притиснатиот тастер ја добивате преку класата
Key.
Откако ќе заврши рутината KeyPress, текстот (т.е. својството Text) во
TextBox контролата го менува
Gambas, според притоснатото копче. Затоа нема смисла во текстот на контролата да се впишува било каква информација од ракувачот за KeyPress настанот, ниту од било која процедура или функција која тој би ја повикал. Намоесто тоа, користете го настанот Change, кој доаѓа по промената на содржината на контролата.
Example
PUBLIC SUB n_Keypress()
' Rakuvac so nastani za Grupa n - ova e niza od 9 x 9 TextBoxes-i
DIM ltext AS Variant
DIM ltag AS Variant
ltext = Key.Text ' Zemi go kodot na tasterot
ltag = LAST.Tag ' Svojstvoto na grupata
IF NOT IsNull(ltext) THEN
IF Mid(ltext, 1) >= "0" AND Mid(ltext, 1) <= "9" THEN
' Pritisnat e eden od numerickite tasteri od 0 do 9
z[ltag] = Int(Asc(ltext) - 48) ' pretvori go stringot vo broj i zapisi go vo nizata celi broevi
...
' ne smeat da se a\uriraat polinjata kako na pr.: n.Text = 48 + i
Previous Next Edit Rename Undo Refresh Search Administration
