MaxLength в StringGrid

← →
greengeneral (2007-11-21 21:40) [0]

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

← →
engine © (2007-11-21 21:52) [1]

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) [2]

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.

← →
Reindeer Moss Eater © (2007-11-21 21:56) [3]

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

> 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.

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