| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MaxLength в StringGrid [D7]

greengeneral ©   (2007-11-21 21:40:00) 

В Edit есть MaxLength, а есть ли в StringGrid, если нет тогда кто нибудь знает как ограничить кол-во символов допустимые для ввода в ячейки StringGrid. Заранее спасибо.

---

Leonid Troyanovsky   (2007-11-22 10:00:00) [1]

> engine ©   (21.11.07 21:52) [1]



procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
 ARow: Integer; var Value: String);
var
 h: HWND;
begin
 h := GetTopWindow((Sender as TStringGrid).Handle);
 if h <> 0 then
   FindControl(h).Perform(EM_SETLIMITTEXT, 10, 0);
end;

--
Regards, LVT.

---

Reindeer Moss Eater   (2007-11-21 21:56:00) [2]

GetEditText вызывается перед началом редактирования. И не вызывается в процессе ввода.

---

engine   (2007-11-21 21:52:00) [3]

procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
 ARow: Integer; var Value: String);
begin
if Length(Value) > 10 then Delete(Value, 11, Length(Value) — 10);
end;

---

Reindeer Moss Eater   (2007-11-21 21:52:00) [4]

Write an OnGetEditMask event handler to provide the in-place editor with an edit mask that describes the valid input strings a user can type into a cell.

---

Наверх