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

Вниз

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

← →
Song   (2002-04-16 14:21) [1]

Вот, прикольный вариант: :))

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
Const MaxLength=5;
begin
IF Length(Value)>MaxLength then
Begin
keybd_event(VK_BACK,0,0,0);
Application.ProcessMessages;
keybd_event(VK_BACK,0,KEYEVENTF_KEYUP,0);
End;
end;


---

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

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

Наверх

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