Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

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

 
kmc   (2002-04-16 14:11) [0]

Всем привет.
Как установить максимальную длину вводимой строки в
TStringGrid?
GetEditMask не катит.


 
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;


 
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;


 
kmc   (2002-04-16 14:54) [3]

Всем большое спасибо, но я устал ждать и сделал сам,
причем довольно-таки красиво:

unit MlGrid;

interface
uses Classes, Grids;

type
TGetEditLimitEvent = procedure (Sender: TObject; ACol, ARow: Longint;
var Value: Integer) of object;
TMlStringGrid = Class(TStringGrid)
private
FOnGetEditLimit : TGetEditLimitEvent;
published
property OnGetEditLimit : TGetEditLimitEvent read FOnGetEditLimit write
FOnGetEditLimit;
protected
function GetEditLimit : Integer; override;
end;

procedure Register;

implementation

function TMlStringGrid.GetEditLimit;
begin
OnGetEditLimit(Self, Col, Row, Result);
end;

procedure Register;

begin
RegisterComponents("Mye", [TMlStringGrid]);
end;


end.



 
Song ©   (2002-04-16 15:01) [4]

Устали ждать???? Я выдал Вам 100% рабочий вариант (по-моему лучше Вашего на мой взгляд) уже через 10 мин, 2 минуты скиньте на написание и проверку, а ещё я не сразу увидел Ваш вопрос :))


 
MBo ©   (2002-04-16 15:21) [5]

>Song
не буянь ;)



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

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-94439
ДмитрийВ
2002-04-15 20:57
2002.04.29
print


4-94641
fag2000@ok.ru
2002-02-26 15:14
2002.04.29
Как отследить все события от мыши и клавиатуры посылаемые другому приложению


3-94282
Igor65
2002-04-08 14:54
2002.04.29
Как импортировать информацию из txt файла в базу


3-94304
dr_neo_rostov
2002-04-08 21:48
2002.04.29
Найти Самый ЛУЧШИЙ SQL


14-94569
PVOzerski
2002-03-25 10:42
2002.04.29
А где можно на программиста выучиться в Питере?