채창훈 님이 쓰신 글 :
: 안녕하세요..
:
: TAdvStringGrid 를 쓰고 있습니다.. 데모 프로그램을 보면 각 쎌 안에 버튼이라든가 하는 것들을 쓰는 예제는 있습니다만 MaskEdit 를 쓰는 예제는 없네요..
:
: 그래서, 다른 예제를 통해서 추리해 보려고 했습니다만 추리해 본 procedure 마다 없다고만 하네요.. :)
:
: 혹시 TAdvStringGrid 의 특정 쎌에서 MaskEdit 를 쓸 수 있는 방법이 없을까요??
procedure TForm1.AdvStringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
var Value: string);
begin
Case ACol of
0 : Value := '!99/99/00;1;_';
1 : Value := '!999-999;1;_';
end;
end;
예제처럼 OnGetEditMask를 사용하시면 됩니다.
|