Текущий архив: 2007.03.04;
Скачать: CL | DM;
Вниз
Как в StringGrid в ячейку вводить только один символ? Найти похожие ветки
← →
abba (2007-02-14 21:01) [0]Как в StringGrid в ячейку вводить только один символ?
Может есть функция, которая за это отвечает? Или придётся писать вручную?
← →
Virgo_Style © (2007-02-14 21:23) [1]abba (14.02.07 21:01)
Вручную. А лучще бросай это дело уже сейчас, дальше будет еще тяжелее.
← →
abba (2007-02-14 21:27) [2]А почему?
← →
RASkov (2007-02-14 21:56) [3]> [0] abba (14.02.07 21:01)
Именно вводить нужно 1 символ или может хватит только отображать 1 символ?procedure TForm1.FormCreate(Sender: TObject);
var R, C: Integer;
begin
for R:= 0 to 4 do
for C:= 0 to 4 do StringGrid1.Cells[R,C]:="123456";
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+4, StringGrid1.Cells[ACOl, AROw][1]);
end;
← →
RASkov (2007-02-14 22:00) [4]> [0] abba (14.02.07 21:01)
Вот и вводить типа так можно ограничить:procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
begin
if Length(Value)>0 then StringGrid1.Cells[ACol, ARow]:=Value[1];
end;
← →
abba (2007-02-14 22:02) [5]Мне нужно, чтобы я мог вводить в ячейку только один символ и не более. Мне придётся вручную или можно как-то проще?
← →
abba (2007-02-14 22:02) [6]Спасибо большое.
Страницы: 1 вся ветка
Текущий архив: 2007.03.04;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.043 c
