Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ StringGrid

Автор: Tan 10.10.2007 0:59

Вечер добрый! Что - то я не смог найти свойство, которое устанавливает максимальную вместимость ячейки StringGrid (просто надо сделать, чтобы в ней хоранился только 1 символ). Выручайте smile.gif

Автор: feniks25 13.10.2007 4:38

Сам когда-то пытался найти такое поле, но не нашёл.
Пришлось просто обрабатывать каждую нужную ячейку onkeyUP:

 <
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;>

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

Кстати да. заведи себе edit с ограниченной длинной и подставляй его поверх ячейки.

Автор: Гость 13.10.2007 4:53

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

Автор: feniks25 13.10.2007 4:56

Цитата(Гость @ 13.10.2007 0:53) *

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

Не знаю? У меня ошибку акцес виолатион выдаёт.

Автор: Гость 13.10.2007 4:58

"Это ты не умеешь его готовить"... У меня не выдает. Как пытался?

Автор: feniks25 13.10.2007 5:04

так и пытался, а надо ещё какие-то условия проверять?

 <
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;
>

Автор: Гость 13.10.2007 5:07

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if Length(Value) > 1 then StringGrid1.Cells[ACol, ARow] := Value[1];
end;


Автор: feniks25 13.10.2007 5:11

гоню. не увидел переменной value