ComboBox

[mckri]

Witam.
Brakuje mi w standardowej kontrolce mozliwości ustawienia obektu ComboBox jako tylko do odczytu, z mozliwością wstawiania tekstu do własciwości 'Text' tego obiektu. Chciałbym uzyskac efekt zachowania ComboBox w stylu 'csDropDownList', ale z możliwością wstawienia do własciwości 'Text' treści z listy.
Dla stylu 'csDropDownList' to nie zadziała:

Kod: Zaznacz cały

ComboBox1->Text="kiszka";

Czy jest jakiś sposób połączenia tych dwóch właściwości (treść tylko do odczytu+mozliwość z poziomu kodu ustawiania właściwości 'Text') w obiekcie ComboBox?

[Cyfrowy Baron]

Jedno z drugim nie działa, ale można zrobić tak, że nie da sie wprowadzić żadnego tekstu z klawiatury do obiektu ComboBox i będzie go można wprowadzać.
W tym celu ustawiasz właściwość Style obiektu ComboBox na csDropDown. Nastęnie tworzysz zdarzenie OnKeyPress dla ComboBox z takim kodem:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyPress(TObject *Sender, char &Key)
{
   Key = 0;   
}
//---------------------------------------------------------------------------


[mckri]

Takie rzeczy juz próbowałem, ale nadal masz mozliwość kasowania zaznaczonego tekstu klawiszem Del. oraz aktywny klawisz z klawiatury menu kontekstowego (zamiast prawego przycisku myszki). Próbowałem juz wyłączyć ten klawisz (Key=93), ale chyba się nie da.
Chodzi mi o całkowite zablokowanie combobox z mozliwością programowego wstawiania tekstu.

[Cyfrowy Baron]

Takiej możliwości nie ma, ale zawsze możesz wstawiać element listy do ComboBox, tylko, że nie jest to to samo co dodawanie właściwości Text, gdyż dodawany jest nowy element do listy.

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ComboBox1->Items->Insert(0, "jakiÅ› tekst");
ComboBox1->ItemIndex = 0;
}
//---------------------------------------------------------------------------


---

Możesz też spróbować tak:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyPress(TObject *Sender, char &Key)
{
   Key = '\0' ;
}
//---------------------------------------------------------------------------


Tutaj żaden klawisz nie zadziała.

[mckri]

Po skompilowaniu nie widać róznicy w zachowaniu ComboBox czy to jest Key=0, czy Key='\0'.
Pole kombi lepiej zachowuje się w takiej sytuaci dla zdarzenia 'ComboBox1KeyDown'. Tam faktycznie przyciski sa zablokowane. Ale nadal dla pola kombi aktywny jest przycisk 93 (klawiaturowy odpowiednik prawego przycisku myszki). Pozostaje w takiej sytuacji chyba jedynie obejść ten problem tylko przez zrobienie funkcji, sprawdzającej przy zdarzeniach OnKey... czy zawartośc tekstu zmieniła sie względem zawartości listy.

[Cyfrowy Baron]

Więc to jest najwyraźniej różnica w bibloitekach. Ja korzystam z środowiska C++ Builder 10 i u mnie sprawdza się to doskonale. Po wstawieniu kodu:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyPress(TObject *Sender, char &Key)
{
       Key = '\0' ;
}
//---------------------------------------------------------------------------


i ustawieniu właściwości Style ComboBox na csDropDown nie mogę wprowadzić do ComboBox żadnego znaku z klawiatury.

[Witold]

Czy jest jakiś sposób połączenia tych dwóch właściwości (treść tylko do odczytu+mozliwość z poziomu kodu ustawiania właściwości 'Text') w obiekcie ComboBox?

Może taka prowizorka:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void UstawStrCBoxa(TComboBox * cbx, AnsiString str)
{
  if (cbx->Items->Count>0)
  {
   const int ii = cbx->ItemIndex;
   cbx->Items->Strings[ii] = str;
   cbx->ItemIndex = ii;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ComboBox1->Style = csDropDownList;
  UstawStrCBoxa(ComboBox1, "kiszka");
}
//---------------------------------------------------------------------------


[Cyfrowy Baron]

Ja bym nieco poprawił ten kod:

Kod: Zaznacz cały

void UstawStrCBoxa(TComboBox * cbx, AnsiString str)
{
  if (cbx->Items->Count > 0 && cbx->ItemIndex != -1)
  {
   const int ii = cbx->ItemIndex;
   cbx->Items->Strings[ii] = str;
   cbx->ItemIndex = ii;
  }

}


---

Poza tym nie trzeba tworzyć żadnej funkcji do takich celów, gdyż ComboBox ma już wbudowaną podobną funkcję:

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Style = csDropDownList), przy csDropDown też działa
ComboBox1->ItemIndex = ComboBox1->Items->IndexOf("kiszka");
}


► patrz serwis: Cyfrowy Baron porady ComboBox Wybranie pozycji z ComboBox poprzez podanie nazwy elementu listy.

Jednak autorowi porady, chyba nie o to chodzi, gdyż tutaj nadal nie można zmienić właściwości Text obiektu ComboBox. Przytoczone przykłady służą tylko wybieraniu i wyświetlaniu elementu listy poprzez podanie nazwy tegoż elementu, podczas gdy Text nie wybiera żadnego elementu z listy i nie wstawia niczego na listę, wstawia tylko tekst w pole ComboBox, czyli właściwość Text obiektu ComboBox działa tak samo jak np. właściwość Text obiektu Edit.

[Witold]

Sprawdzenia czy ItemIndex !=-1 bez wątpienia brakowało.

Poza tym nie trzeba tworzyć żadnej funkcji do takich celów, gdyż ComboBox ma już wbudowaną podobną funkcję:
...
ComboBox1->ItemIndex = ComboBox1->Items->IndexOf("kiszka");

Tego nie rozumiem. Ta prowizorka którą podałem zmienia wartość elementu ComboBox tego który jest w danej chwili aktywny (wskazuje go ItemIndex).

Jednak autorowi porady, chyba nie o to chodzi, gdyż tutaj nadal nie można zmienić właściwości Text obiektu ComboBox.

Pewnie tak.

Moża by spróbować zmienić: Key na 0 dla ComboBox1KeyPress, ComboBox1KeyDown, podmienić PopupMenu i przechwycić WM_CONTEXTMENU i może coś jeszcze .

[Cyfrowy Baron]

Kod: Zaznacz cały

ComboBox1->ItemIndex = ComboBox1->Items->IndexOf("kiszka");

No tak!... nie zauważyłem. Twoja funkcja podmienia nazwę wybranego elementu listy, ale to chyba już wogóle nie wchodzi w grę, gdyż zmianie ulega zawartość listy, co ze wszech miar wydaje się efektem niepożądanym.
Nie bardzo łapię sens podmiany elementu listy, tylko po to żeby wyświetlić jego zawartość skoro za pomocą funkcje IndexOf można wybrać i wyświetlić pożądany element listy bez wprowadzania jakichkolwiek zmian w liście.

[Witold]

Kod: Zaznacz cały

ComboBox1->ItemIndex = ComboBox1->Items->IndexOf("kiszka");

...
Nie bardzo łapię sens podmiany elementu listy, tylko po to żeby wyświetlić jego zawartość skoro za pomocą funkcje IndexOf można wybrać i wyświetlić pożądany element listy bez wprowadzania jakichkolwiek zmian w liście.

Dla jakisString którego nie ma wśród ComboBox1->Items:

ComboBox1->ItemIndex = ComboBox1->Items->IndexOf(jakisString);

Nie zadziała (dla csDropDownList będzie puste pole), w takim wypadku trzeba jakisString dodać do listy. Można by połączyć wykorzystanie IndexOf z wstawianiem np. tylko do Items->Strings[0] i ten element (0) traktować jako nie istotny dla listy. Zresztą przyznałem że pewnie autorowi nie o to chodzi.

[Cyfrowy Baron]

W takim przypadku należałoby dodać taki element do listy, ale mniejsza już o to.
Chcąc zmienić wartość elementu, mzna to zrobić prościej, ComboBox posiada już niezbędne funkcje:

Kod: Zaznacz cały

  int x = ComboBox1->ItemIndex;
  if(x != -1) ComboBox1->Items->Strings[i] = "kiszka";


[mckri]

Polecenie

Kod: Zaznacz cały

ComboBox1->ItemIndex = ComboBox1->Items->IndexOf("kiszka");

W zupełności mnie zadowala. Dzieki.

Co do Key=0 lub Key='\0' to osobiscie nie widzę różnicy w działaniu na wersji 11 Buildera. Byc może ktoś potwierdzi lub zaprzeczy na forum.