IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> StringGrid
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


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


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


Сам когда-то пытался найти такое поле, но не нашёл.
Пришлось просто обрабатывать каждую нужную ячейку onkeyUP:
 <
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;>

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

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

Сообщение отредактировано: feniks25 -


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






OnSetEditText обрабатывать не лучше?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


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

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

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


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






"Это ты не умеешь его готовить"... У меня не выдает. Как пытался?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


так и пытался, а надо ещё какие-то условия проверять?
 <
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;
>


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






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

 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


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


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.09.2020 17:02
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name