Un saluto a tutto il forum. Oggi ho provato ad installare su un pc la nuovissima versione 0.9.30.4 di Lazarus, ma compilando lo stesso codice che fino alla versione 0.9.30.2 non dava nessun problema ottengo un errore.
In particolare, ho in un modulo generale (.pas), richiamato dalla uses delle varie form, contenente, tra le altre, questa funzione, che serve per permettere di spostarsi sul controllo successivo con Invio anziché Tab in taluni campi di alcune forms:
procedure MyTabInvio(var MyForm: TForm; var MySender: TObject; var MyKey: Word; const MyScelta: SmallInt = -1);
[...]
//Si sposta al controllo successivo premendo Invio (come che si fosse premuto TAB)
if (MyKey = KeyInvio) and (MySender.ClassName <> 'TComboBox') and (MySender.ClassName <> 'TDBComboBox') then begin
MyForm.SelectNext (MySender as TWinControl, True, True);
MyKey := 0;
end
else if (MyKey = KeyArrowRight) and (RightArrowTab = 1) then begin
MyForm.SelectNext (MySender as TWinControl, True, True);
MyKey := 0;
end
else if (MyKey = KeyTab) and ((MySender.ClassName = 'TDBComboBox') or (MySender.ClassName = 'TComboBox')) then begin
MyForm.SelectNext (MySender as TWinControl, True, True);
MyKey := 0;
end;
che viene semplicemente richiamato dall'evento KeyDown dei controlli in cui l'invio deve spostare il focus al controllo successivo come il Tab:
procedure TfrmPippo.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
[...]
MyTabInvio (Self, Sender, Key);
Tuttavia, mentre fino alla versione 0.9.30.2 funzionava tutto perfettamente, dalla 0.9.30.4 ottengo questo errore in sede di compilazione:
pippo.pas(199,19) Error: Call by var for arg no. 1 has to match exactly: Got "TfrmPippo" expected "TForm"
Ho provato con il casting:
MyTabInvio (Self as TForm, Sender, Key);
ma ottengo errore:
pippo.pas(199,28) Error: Can't take the address of constant expressions
Ho provato allora a sostituire nella funzione TForm con TObject e non ottengo errore, salvo poi che TObject non supporta il metodo SelectNext, e con il casting with MyForm as TForm do SelectNext ottengo ancora errore.
Con tutte le versioni di Lazarus fino alla 0.9.30.2 tutto funzionava correttamente.
Avete qualche idea di come posso risolvere il problema?
Grazie per ogni consiglio o suggerimento.
Buona serata a tutti e complimenti a xinyman per questo eccellente sito!
Stefano
Ho avuto anch'io lo stesso problema dopo aver aggiornato il FreePascal alla 2.6.0.
Praticamente dovresti fare così: riporta la tua procedura alla forma "originale" e chiamala così:
MyTabInvio (TForm(Self), Sender, Key);
A dire la verità io la chiamo mettendo il nome specifico del form, per intenderci
MyTabInvio (TForm(Form1), Sender, Key);
ma credo che sia la stessa cosa.
Ciao, Mario
Anche se in ritardo vorrei sollevare un'obiezione.
Basta mettere const al posto di var.
procedure MyTabInvio(const MyForm: TForm; var MySender: TObject; var MyKey: Word; const MyScelta: SmallInt = -1);
PS:
Per evitare tutti quei cast dinamicy (as) ... è magari possibile passare in TWinControl al posto di TObject ... o no?
Stilgar