[RISOLTO] Lazarus 0.9.30.4 e TForm

[CortelliStefano]

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:

Codice: [Seleziona]

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:

Codice: [Seleziona]

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:

Codice: [Seleziona]

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:

Codice: [Seleziona]

MyTabInvio (Self as TForm, Sender, Key);

ma ottengo errore:

Codice: [Seleziona]

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

[bonmario]

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ì:

Codice: [Seleziona]

MyTabInvio (TForm(Self), Sender, Key);

A dire la verità io la chiamo mettendo il nome specifico del form, per intenderci

Codice: [Seleziona]

MyTabInvio (TForm(Form1), Sender, Key);

ma credo che sia la stessa cosa.

Ciao, Mario

[CortelliStefano]

Grazie!! Con il tuo consiglio ho risolto perfettamente ed adesso compilo senza problemi con la 0.9.30.4.

Che dire? Ancora GRAZIE e... a buon rendere 

Stefano

[bonmario]

Figurati, io ci sono arrivato dopo un paio d'ore di tentativi !!!
Più che altro non ho capito molto la logica di tutto ciò e non avevo nemmeno trovato niente nel changelog della 2.6.0.

Ciao, Mario

[Stilgar]

Anche se in ritardo vorrei sollevare un'obiezione.
Basta mettere const al posto di var.

Codice: [Seleziona]

procedure MyTabInvio(const MyForm: TForm; var MySender: TObject; var MyKey: Word; const MyScelta: SmallInt = -1);

Non mi sembra di vedere modifiche a MyForm, quindi il var è pressochè inutile se non potenzialmente dannoso
PS:
Per evitare tutti quei cast dinamicy (as) ... è magari possibile passare in TWinControl al posto di TObject ... o no?
Stilgar

[CortelliStefano]

Ciao Stilgar e grazie del consiglio, in effetti MyForm non veniva modificata, quindi ottima cosa passarlo come Const. A questo punto anche MySender, che pure non viene modificata, posso pure passarlo come Const.

Avevo optato di passare TObject per usare tale e quale il parametro Object degli eventi KeyDown.

Buona serata ed ancora grazie per tutti i suggerimenti e consigli, sempre molto azzeccati ed utili, a presto,

Stefano