Помощь - Поиск - Пользователи - Календарь
Полная версия: StringGrid
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Tan
Вечер добрый! Что - то я не смог найти свойство, которое устанавливает максимальную вместимость ячейки StringGrid (просто надо сделать, чтобы в ней хоранился только 1 символ). Выручайте smile.gif
Rian
Сам когда-то пытался найти такое поле, но не нашёл.
Пришлось просто обрабатывать каждую нужную ячейку onkeyUP:
 <
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;>

хотя может и есть не такой убитый способ ?..

Кстати да. заведи себе edit с ограниченной длинной и подставляй его поверх ячейки.
Гость
OnSetEditText обрабатывать не лучше?
Rian
Цитата(Гость @ 13.10.2007 0:53) *

OnSetEditText обрабатывать не лучше?

Не знаю? У меня ошибку акцес виолатион выдаёт.
Гость
"Это ты не умеешь его готовить"... У меня не выдает. Как пытался?
Rian
так и пытался, а надо ещё какие-то условия проверять?
 <
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;
>
Гость
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if Length(Value) > 1 then StringGrid1.Cells[ACol, ARow] := Value[1];
end;

Rian
гоню. не увидел переменной value
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.