Tasto INS su app Delphi non ha effetto.

2 Risposte

• D

  dobby

  Utente Attivo

  Iscritto da

  nov, 2021

  Messaggi:

  73

  Re: Tasto INS su app Delphi non ha effetto.

  06 ott 2024, 23:49

  Teoricamente è il comportamento normale del campo tedit/tmemo.
  
  Dopo un po di vari test, ho provato a fare cosi, non è una soluzione perfetta ma come base mi sembra che funzioni

  procedure TForm1.FormCreate(Sender: TObject);
  begin
   fInsertMode := True; // da dichiarare 
  end;
  
  procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  begin
    // Controlla se il tasto premuto è Insert
    if Key = VK_INSERT then
    begin
      // Cambia il modo di inserimento/sovrascrittura
      fInsertMode := not fInsertMode;
      Key := 0; // Disabilita il beep del tasto Insert
    end;
  end;
  
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if (Not FInsertMode)and(Edit1.SelLength=0) Then
           Edit1.SelLength := 1;
  end;
  
  

• R

  robnic

  Pochi posts

  Iscritto da

  feb, 2021

  Messaggi:

  20

  Re: Tasto INS su app Delphi non ha effetto.

  08 ott 2024, 15:45

  Ciao,

  grazie per il codice ma stiamo parlando di vari applicativi e molto grandi. 

  Inoltre non sono usati solo componenti standard ma anche componenti di terze parti, Konopka (che io sappia sono componenti ereditati dai componenti standard) e jfControls. Ho fatto l'esempio con i componenti standard per non complicare le cose.

  Mi è stato detto da clienti che in passato il tasto INS funzionava. Sinceramente non ricordo ma mi fido di quello che mi dicono.

  grazie,

  Roberto