Tcombobox

Question

Bonjour,

Merci pour votre précédente aide elle me sera bénéfique, voici mon deuxième soucis. 

Dans ma TComboBox  J'ai 2 items :
 
      Directement qui correspond à SiComm1.SetModeDirect;
      Distant qui corespond a SiComm1.SetModeRemote;


Comment en selectionnant l'un de ces deux mode dans mon code?


procedure Tform1.Connexion(porta: OleVariant; velocita: OleVariant);
var
   n_beep : OleVariant;
begin

  SiComm1.Initialize(porta,velocita,0,'',0);
  sleep(300);
  SiComm1.PortOpen := True;

  if CheckBox6.Checked = False then
    n_beep := 2
  else
    n_beep := 0;
   //Ici on poura sélectionner le mode direct ou maitre
  ComboBox1.Items.Items[1]:=SiComm1.SetModeRemote;

  SiComm1.BeepIfStationReady(n_beep);
  sicomm1.GetSiS_sdata_NewBoard;
end;

Cordialement.

clem68100 · Answer

en recherchant un peu j'ai trouver ma méthode :
  

if ComboBox1.itemindex=0 then
     SIcomm1.SetModeDirect
  else
     SiComm1.SetModeRemote;

Tcombobox

1 réponse

Votre réponse

Discussions similaires