la sintesi del titolo non è chiara. Spero di spiegarmi meglio ora:
Nella Form2 che ho in manipolazione per ora ho disegnato alcune Tedit.
Ve ne sono due dove ammetto caratteri tipici. Nella prima delle due ammetto solo caratteri numerici, nella seconda ammetto solo 1 carattere (U/E).
Ebbene, mi si presenta un comportamento del programma, per me, strano:
Se sposto il cursore a prima di un carattere immesso e premo il tasto Canc, ecco cosa succede:
1.a Tedit: il carattere puntato dal cursopre NON si cancella.
2.a Tedit: l'unico carattere, puntato dal cursopre, SI cancella.
Riporto qui appresso il codice che ho scritto per gli eventi OnKeyDown sia per la 1.a Tedit, sia per la 2.a:
1.a Tedit:
procedure TForm2.EImportoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
swTastoSi: Boolean = False;
begin
if (char(Key) = '.') then
begin
Key:= Ord(',');
end
else begin
case Key of
VK_BACK, [b]VK_CANCEL[/b], VK_CLEAR, VK_DELETE, VK_END, VK_HOME, VK_LEFT, VK_RETURN, VK_RIGHT, VK_TAB, VK_LCL_POINT, VK_LCL_COMMA:
begin
swTastoSi:= True;
end;
else begin
case key of
VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4, VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, VK_NUMPAD8, VK_NUMPAD9:
begin
swTastoSi:= True;
end
else begin
if (char(Key) >= '0') and (char(Key) <= '9') then
begin
swTastoSi:= True;
end
else begin
if (ssShift in Shift) and (key = VK_TAB) then
begin
swTastoSi:= True;
end;
end
end;
end;
end;
end;
end;
case swTastoSi of
False:
begin
Key:= 0;
end;
else begin
case Key of
VK_LCL_POINT:
begin
key:= Ord(',');
end;
end;
end
end;
end;
2.a Tedit:
procedure TForm2.EsimbEUKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_BACK, [b]VK_CANCEL[/b], VK_CLEAR, VK_DELETE, VK_HOME, VK_LEFT, VK_RETURN:
begin
end
else begin
if (char(Key) <> 'e') and (char(Key) <> 'E') and (char(Key) <> 'u') and (char(Key) <> 'U') then
begin
Key:= 0;
end;
end;
end;
end;
In entrambe viene testata la pressione del tasto |Canc|
??? ::) :-\ :-[
Si, l'ho trovato anch'io.
il problema nasce per effetto del codice
if (char(Key) = '.') then
begin
Key:= Ord(',');
end
case Key of
VK_BACK, VK_CANCEL, VK_CLEAR, VK_DELETE, VK_END, VK_HOME, VK_LEFT, VK_RETURN, VK_RIGHT, VK_TAB, VK_LCL_POINT, VK_LCL_COMMA:
Mi resta il compito di riconoscere il punto che,
- premuto nella tastiera alfanumerica, assume key= 190
- premuto nel tastierino numerico, assume key= 110
Per cui penso che dovrò modificare il passo iniziale così:
if (Key = 190) or (Key = 110) then
begin
Key:= Ord(',');
WriteLn('codice_carattere modificato= "' + IntToStr(Key) + '/' + char(Key) + '"');
end
. . .
case char(key) of
',':
begin
swTastoSi:= True;
end;
end;
Ho provato, ma non funziona nemmeno.
uffaaaaaaaaaaaa
procedure TForm5.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key <> VK_DELETE) and (key <> VK_LEFT) then
key := 0;
end;
procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = 'p' then
key := #0;
end;
Prova questo codice, vedrai che puoi premere solo i tasti CANC e FRECCIA A SINISTRA come tasti "speciali".... ma nonostante tu metta il key a zero i tasti carattere PASSANO ;D
Non passa il invece il carattere 'p' ....
Ciao
Si, ho risolto. Grazie per l'aiuto.
Distribuendo e distinguendo i controlli sui tasti speciali da quelli sui tasti carattere negli eventi OnKeyDown e OnKeyPress, ho raggiunto lo scopo. Ho faticato un pò col tasto '.'(punto) del tastierino numerico, ma alla fine si è arreso. :D
Riporto, per completezza, il codice definitivo:
procedure TForm2.EImportoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
swTastoSi: Boolean = False;
begin
case Key of
VK_BACK, VK_CANCEL, VK_CLEAR, VK_DELETE, VK_END, VK_HOME, VK_LEFT, VK_RETURN, VK_RIGHT, VK_TAB, VK_LCL_POINT, VK_LCL_COMMA:
begin
swTastoSi:= True;
end
else begin
case key of
VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4, VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, VK_NUMPAD8, VK_NUMPAD9, 110: // 110 è il codice numerico del tasto "."(punto) del tastierino numerico
begin
swTastoSi:= True;
end;
end;
end;
end;
case swTastoSi of
False:
begin
Key:= 0;
end;
end;
end;
procedure TForm2.EImportoKeyPress(Sender: TObject; var Key: char);
var
decimali, lun, p: Integer;
begin
p:= Pos(',', EImporto.Text);
if (Key = Char(46)) then
begin
case p of
0:
begin;
Key:= ',';
end
else begin
key:= Char(0);
end;
end;
end
else begin
lun:= Length(EImporto.Text);
if (p > 0) and (p < lun) then
begin
decimali:= lun - p;
if (decimali >= 2) then
begin
key:= Char(0);
end;
end;
end;
end;
testare quei tasti, ossia VK_Numpadx e VK_DECIMAL non serve in quel posto, perchè comunque "passano" che tu metta il key a zero o meno. Sono tasti che generano caratteri e quindi non puoi filtrali in quell'evento.
Prova togliere il blocco dove li usi e vedrai che il risultato non cambia, almeno così dovrebbe essere. Visto che utilizzi Linux una conferma o una smentita farebbe comodo.
Purtroppo, nel mio caso, non è così, perchè il blocco
case key of
VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4, VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, VK_NUMPAD8, VK_NUMPAD9, 110: // 110 è il codice numerico del tasto "."(punto) del tastierino numerico
begin
swTastoSi:= True;
end;
end;
case Key of
VK_BACK, VK_CANCEL, VK_CLEAR, VK_DELETE, VK_END, VK_HOME, VK_LEFT, VK_RETURN, VK_RIGHT, VK_TAB, VK_LCL_POINT, VK_LCL_COMMA:
begin
swTastoSi:= True;
end
else begin
case key of
VK_NUMPAD0, VK_NU. . .
Anzi, in seguito a quest'ultima tua riflessione, ho riprovato ed ho riscontrato che i numeri immessi dalla tastiera alfanumerica non vengono riconosciuti, perciò dovrò riconoscerne i codici in KeyDown per fare passare pure quelli.