Witam,
SG - TStringGrid
mam SG. I chcę tak:
1 - po kliknięciu na niego (SGClick) usuwam goEditing z opcji,
2 - po puszczeniu myszki (SGMouseUp) wstawiam goEditing do opcji,
No i niby powinno działać tak, że po kliknięciu jak ruszam myszką to będzie mi zaznaczać komórki, a jak puszczę myszkę, to mogę edytować komórki. Ale nie działa. Robiłem to na radiobuttonach, ale jest to strasznie niewygodne. Trochę lepiej jest, gdy na DblClicku wchodzę w tryb edycji. Ale i tak OnClick musi się wykonać 2x, żeby SG załapał nowe opcje :/
Kod jest naprawdę bardzo prosty:
void __fastcall TFRoot::SGClick(TObject *)
{
SG->Options = SG->Options >> goEditing;
}
//---------------------------------------------------------------------------
void __fastcall TFRoot::SGMouseUp(TObject *, TMouseButton ,
TShiftState , int , int )
{
SG->Options = SG->Options << goEditing;
}
//---------------------------------------------------------------------------
Żadnych innych zdarzeń na SG nie ma.
Czytałem forum. Np.:
http://4programmers.net/Forum/292791?h=tstringgrid%20options#id292791