StringGrid - Opcje

[Pitek]

Witam!
Mam pytanie w jaki sposób można za pomocą kodu sterować opcją komponentu StringGrid chodzi o goEditing ?
Czy da się ją jakoś prosto załączyć i wyłączyć podczas działania programu ?

[Corvis]

Włączenie:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

StringGrid1->Options = TGridOptions() << goEditing;

Wyłączenie:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

StringGrid1->Options = TGridOptions() >> goEditing;

[Pitek]

Nie wątpię że te kody są dobre tylko może za dużo chciałem wykombinować sam.
Chodzi mi o to żeby po kliknięciu w 3 kolumnę StringGrid odblokowała się możliwość pisania i tylko tam.
Taki kod mi nie działa:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::StringGrid2Click(TObject *Sender)
{
if(StringGrid2->Col == 3)
{
 StringGrid1->Options = TGridOptions() << goEditing;
}
}

[Cyfrowy Baron]

Obiekt typu TStringGrid nie posiada żadnych funkcji, które umożliwiałyby wyłączanie edycji całej tabeli i włączanie edycji wybranych komórek. Łatwo zrobić się tego nie da. Takie możliwości posiada, np. komponent TAdvGrid z pakietu TMS Components Pack, ale są to komponenty komercyjne.

Problem można rozwiązać łącząc tabele StringGrid z obiektem typu TEdit, czyli polegałoby to na tym, że wyłączasz edycję całej tabeli, a po kliknięciu na wybranej komórce w jej pozycji wyskakuje pole typu TEdit, które dopasowuje się rozmiarem do komórki. Wpisujesz tekst w pole Edit, a po naciśnięciu np. przycisku ENTER lub przejściu do innej komórki, tekst z pola Edit zostaje wpisany do komórki, a pole Edit znika.

Taki mechanizm opisałem w serwisie Cyfrowy Baron w dziale: porady StringGrid porada: Wstawianie obiektu ComboBox do obiektu StringGrid.
Przykład bazuje na obiekcie typu TComboBox, ale można go bez problemu zastąpić obiektem typu TEdit.

[Pitek]

Jest ok pojawia się elegancko ale nic nie moge wpisać.

[Cyfrowy Baron]

Nie miałem racji, można to zrobić w prosty sposób, tylko trzeba posłużyć się zdarzeniem OnSelectCell.

W Object Inspector ustaw właściwości Options obiektu StringGrid tak:

• goEditing = false
• goAlwaysShowEditor = true

Utwórz zdarzenie OnSelectCell dla StringGrid i umieść taki kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow,  bool &CanSelect)
{
 if(ACol == 2 && ARow == 3)
 {
  StringGrid1->Options = StringGrid1->Options << goEditing;
 }
 else
 {
  StringGrid1->Options = StringGrid1->Options >> goEditing;
 }
}

Zauważ jak zmieniam opcje:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 StringGrid1->Options = StringGrid1->Options << goEditing;

Nie użyłem TGridOptions() << goEditing; gdyż spowodowałoby to nieprawidłowe wyświetlanie tabeli (nie wiem dlaczego), można więc ewentualnie postąpić tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 TGridOptions gOpt = StringGrid1->Options;
 if(ACol == 2 && ARow == 3)
      StringGrid1->Options = gOpt << goEditing;
 else StringGrid1->Options = gOpt >> goEditing;

[Cyfrowy Baron]

Można ten mechanizm jeszcze udoskonalić, gdyż w poprzedniej podanej przeze mnie wersji pojawia się problem przy przechodzeniu pomiędzy komórkami za pomocą klawiszy strzałek na klawiaturze. Poniższy kod rozwiązuje ten problem:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow,
        bool &CanSelect)
{
 TGridOptions gOpt = StringGrid1->Options;

 if(ACol == 2 && ARow == 3)
 {
  StringGrid1->Options = gOpt << goAlwaysShowEditor << goEditing;
 }
 else
 {
  StringGrid1->Options = gOpt >> goAlwaysShowEditor >> goEditing;
 }
}

---

Co się tyczy problemu z edycją pola typu TEdit, to tabela StringGrid nie może być rodzicem pola Edit.

[Pitek]

Bardzo dziękuję rzeczywiście działa!