Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

StringGrid, InplaceEdit, MaxLength   Найти похожие ветки 

← →
MBo   (2002-04-16 14:33) [2]

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
StringGrid1.Tag:=Acol+100*Arow;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#8 then
with stringgrid1 do
if length(cells[tag mod 100,tag div 100])>=MaxLen
then key:=#0;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c