Ho una difficoltà da superare:
Dovrei infatti intercettare il click , quando esso avviene su un pulsante sella Form corrente, senza permettere l'esecuzione della pocedura "EXIT" del controllo attivo ad un dato momento.
Nella mia Form ho una combobox, dove forzo la parte iniziale del testo da completare con la digitazione.
Supponiamo che la mia ComboBox si chiami "CBDescr".
Normalmente, nella procedura "CBDescrExit", mi accerto che la digitazione di completamento del testo sia avvenuta
procedure TForm2.CBDescrExit(Sender: TObject);
. . .
begin
if (Length(CBDescr.Text) > 0) then
begin
if Form2.RBCauPreMom.Checked then
begin
if (RightStr(CBDescr.Text, 5) = 'per: ') or (RightStr(CBDescr.Text, 4) = 'per:') then
begin
ShowMessage('Causale per Prestiti momentanei incompleta' + LineEnding + '*** Manca la 2.a parte ***' + LineEnding + LineEnding + 'COMPLETA la causale per proseguire');
swPremomErro:= True;
end;
... bla...bla...
Se però non viene immesso nessun carattere e viene eseguito un click del mouse sul pulsante |ESCI| per abbandonare la Form e tornare alla Form precedente, NON riesco ad evitare i controlli eseguiti dentro la suddetta procedura e NON riesco ad abbandonare immediatamente la Form.
E' possibile intercettare nella procedura CBDescrExit l'avvenuto click sul pulsante |ESCI|?