n° 219
Novembre 2017
Dicembre 12, 2017, 02:14:50 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: [1]   Vai giù
  Stampa  
Autore Discussione: (Delphi XE) Aiuto Itemindex  (Letto 3133 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
camaleonteplus
Jr. Member
**

Karma: +0/-0
Scollegato Scollegato

Messaggi: 149


Bello Delphi!

mrcamarium@yahoo.it mrcamarium@yahoo.it
Mostra profilo WWW
« inserita:: Marzo 01, 2013, 03:46:11 »

Codice:
procedure TIC317.TipoSelect(Sender: TObject);
// Determina l'immagine
begin
case Tipo.itemindex of
  0: Ten.Visible := True;
     Cor.Visible := False;
  1: Cor.Visible := True;
     Ten.Visible := False;
end;
end;

sto usando un TComboBox per rendere invisibile o visibile 2 immagini ma mi da questo errore:
[DCC Error] Lm317.pas(45): E2026 Constant expression expected
come posso correggerlo? Scioccato
Registrato
Fuser
Jr. Member
**

Karma: +0/-12
Scollegato Scollegato

Messaggi: 74


Mostra profilo
« Risposta #1 inserita:: Marzo 01, 2013, 06:20:55 »

Mancano i BEGIN e END.

procedure TIC317.TipoSelect(Sender: TObject);
// Determina l'immagine
begin
case Tipo.itemindex of
  0:
      begin
            Ten.Visible := True;
            Cor.Visible := False;
      end
  1:
       begin
           Cor.Visible := True;
           Ten.Visible := False;
      end
end;
end;
Registrato
camaleonteplus
Jr. Member
**

Karma: +0/-0
Scollegato Scollegato

Messaggi: 149


Bello Delphi!

mrcamarium@yahoo.it mrcamarium@yahoo.it
Mostra profilo WWW
« Risposta #2 inserita:: Marzo 01, 2013, 07:57:23 »

Ci ho pensato un po e cosi va meglio.
Codice:
procedure TIC317.TipoSelect(Sender: TObject);
// Determina l'immagine e i componenti
begin
case Tipo.itemindex of
  0: TensClick(Sender);
  1: CorrClick(Sender);
end;
end;

procedure TIC317.TensClick(Sender: TObject);
begin
     Ten.Visible := True;
     Cor.Visible := False;
     Label2.Visible := True;
     R2.Visible := True;
     Volt.Visible := True;
     Label1.Visible := True;
end;

procedure TIC317.CorrClick(Sender: TObject);
begin
     Ten.Visible := False;
     Cor.Visible := True;
     Label2.Visible := False;
     R2.Visible := False;
     Volt.Visible := False;
     Label1.Visible := False;
end;
grazie per il consiglio.
Registrato
Pagine: [1]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines