Текущий архив: 2007.12.16;
Скачать: CL | DM;
Вниз
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 вызывается перед началом редактирования. И не вызывается в процессе ввода.
← →
Leonid Troyanovsky © (2007-11-22 10:00) [4]
> 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.
Страницы: 1 вся ветка
Текущий архив: 2007.12.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
