[Delphi] aprire un applicazione & utilizzare 'Invio' per cambiare Edit

[carmelo81]

1)Come posso aprire un applicazione estranea tipo WordPad tramite un Delphi Project?
2)Si puo utilizzare il tasto Invio della tastiera per passare da un Edit ad un altro? Riesco a farlo solo con il tasto Tab!

Aspetto numerose risposte!! Grazie ragà, ciao

[alka]

Originariamente inviato da carmelo81
1)Come posso aprire un applicazione estranea tipo WordPad tramite un Delphi Project?

Attraverso la funzione ShellExecute (vedi thread), disponibile aggiungendo la unit ShellAPI alla clausola uses.

Originariamente inviato da carmelo81
2)Si puo utilizzare il tasto Invio della tastiera per passare da un Edit ad un altro? Riesco a farlo solo con il tasto Tab!

Aggiungi un metodo di questo tipo alla tua form (supponiamo si chiami Form1):

procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;

che definirai così:

procedure TForm1.CMDialogKey(var Msg: TCMDialogKey);
begin
  if (Msg.CharCode = VK_RETURN) then
    begin
      Perform (CM_DialogKey, VK_TAB, 0);
      Msg.Result := 1;
    end
    else
      inherited;
end;

In questo modo, ogni pressione del tasto INVIO si trasforma in una tabulazione che sposta il focus sul controllo successivo; in genere, non prediligo questa forma di interazione poichè è TAB il tasto di spostamento e l'utente Windows dovrebbe abituarsi a tale meccanismo poichè è quello predefinito in tutte le applicazioni, così come INVIO provoca la pressione automatica del tasto predefinito, mentre ESC quella del tasto di annullamento.

Ciao!

[carmelo81]

Hei ho appena provato la procedura per il tasto Invio e funziona correttamente!!
Grazie

[alka]

Originariamente inviato da carmelo81
Hei ho appena provato la procedura per il tasto Invio e funziona correttamente!!

Non te l'avrei suggerita se così non fosse...

[MMarzia]

occhio ai titoli

[carmelo81]

Caspita!!
Funziona anche la procedura per l'apertura del programma!!
Grazie davvero, ciao!

[alka]

Originariamente inviato da carmelo81
Funziona anche la procedura per l'apertura del programma!!

Idem come sopra...ad ogni modo, questi commenti non sono utili alla community del forum poichè non aggiungono nulla di significativo alla discussione, pertanto non scriverne un centinaio! Se proprio devi, ricorri ai messaggi privati.

[MMarzia]

Originariamente inviato da alka
Idem come sopra...ad ogni modo, questi commenti non sono utili alla community del forum poichè non aggiungono nulla di significativo alla discussione, pertanto non scriverne un centinaio! Se proprio devi, ricorri ai messaggi privati.

grazie per l'aiuto alka ma a questo tipo di commenti ci possono pensare i mod del forum, anche se la maggior parte di essi ora si trova in vacanza..

[carmelo81]

inserendo il codice per far utilizzare il tasto Invio come tabulazione per spostare il focus sul controllo successivo, non riesco piu ad utilizzarlo per premere i TButton..è normale?
C'è un metodo per rendere attivo anche la pressione del button con Invio?
Grazie

[alka]

Originariamente inviato da carmelo81
inserendo il codice per far utilizzare il tasto Invio come tabulazione per spostare il focus sul controllo successivo, non riesco piu ad utilizzarlo per premere i TButton..è normale?

Sì che è normale; infatti, normalmente il tasto INVIO - all'interno di una finestra di dialogo - serve a confermare le scelte premendo autoamticamente il pulsante predefinito, evidenziato da una cornice in grassetto; se modifichi il comportamento della finestra al tasto INVIO sostituendo lo spostamento del focus alla pressione del pulsante predefinito, tale comportamento sarà quello adottato al posto di quello abituale.

Originariamente inviato da carmelo81
C'è un metodo per rendere attivo anche la pressione del button con Invio?

Dovrebbe essere possibile premere il pulsante con il tasto INVIO solo quando il focus finisce sul pulsante stesso, non vedo altre possibilità.

Per fare questo, forse basterebbe verificare che non sia selezionato un pulsante nella finestra di dialogo prima di sostituire il tasto INVIO con una risposta differente dalla predefinita.

Prova a modificare il modello di codice che ti ho dato in precedenza in questo modo:

procedure TForm1.CMDialogKey(var Msg: TCMDialogKey);
begin
  if (Msg.CharCode = VK_RETURN) and (not(ActiveControl is TButton)) then
    begin
      Perform (CM_DialogKey, VK_TAB, 0);
      Msg.Result := 1;
    end
    else
      inherited;
end;

Ciao!