Witam.
Mam no formie komponent TStringGrid.
Z domyślnym ColCOunt = 1.
Teraz w zdarzeniu OnMouseOver kontrolki wpisałem procedurę:
if StringGrid1.Selection.BottomRight.X+1 = StringGrid1.ColCount then
StringGrid1.ColCount:=StringGrid1.ColCount+1;
Jeśli mysz jest w ostatnim polu dodane zostanie kolejne itd.
Teraz chciałbym zrobić coś takiego, że jak mysz się cofnie o jedno pole to ilość pól się zmniejszy.
Odwrotność do kodu wyżej.
Zrobiłem coś takiego:
if StringGrid1.ColCount > 2 then
if StringGrid1.Selection.BottomRight.X+1 < StringGrid1.ColCount then
StringGrid1.ColCount:=StringGrid1.ColCount-( StringGrid1.ColCount-StringGrid1.Selection.BottomRight.X-1);
I mam z tym problem, bo gdy najeżdżam myszką i próbuję przesuwać kursor tak aby utworzyć pole, zostaje ono również usunięte.
Próbowałem już na kilka sposobów i mi nie wychodzi.
Mógłby mi ktoś pomóc?
Pozdrawiam.