Кто работал с компонентом TAdvStringGrid ?

← →
kserg@ukr.net (2002-05-13 18:08) [0]

Подскажите можно ли в ячейке сделать полноценный контроль
ввода времени в офрмате ЧЧ:MM
и чтобы с проверкой вводимого значения на ЧЧ<24 и ММ<60.

Сам пока дошел только до задания формата ввода
procedure TMainForm.timeStrGrdGetEditMask(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
Value := "!99:99;1;*";
end;

А вот как влепить контроль?

← →
kserg@ukr.net (2002-05-14 11:03) [1]

Всё таки может кто то отзовется?

← →
KilkennyCat (2002-05-14 11:53) [2]

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

← →
kserg@ukr.net (2002-05-14 12:06) [3]

>KilkennyCat © (14.05.02 11:53)
согласен. и спасибо за совет.
а лучше подскажи формат маски, чтоб нельзя было ввести
время типа 26:70 ??

← →
KilkennyCat (2002-05-15 11:13) [4]

Хе... я тоже мучался, в результате вскрыл mask.pas и добавил в эту процедурку:

function TCustomMaskEdit.CharKeys(var CharCode: Char): Boolean;
var
SelStart, SelStop : Integer;
Txt: string;
CharMsg: TMsg;
begin
Result := False;

********************************************
GetSel(SelStart, SelStop);
if selstart = 0 then chch := charcode;
if ((selstart = 0) and (ord(charcode) > 50)) or
((selstart = 1) and (ord(chch) = 50) and (ord(charcode) > 51)) or
((selstart = 1) and (ord(charcode) > 52)) or
((selstart = 3) and (ord(charcode) > 53)) or
((selstart = 6) and (ord(charcode) > 53)) then exit;

**********************************************************

if Word(CharCode) = VK_ESCAPE then
begin
Reset;
Exit;
end;

То есть, в первом месте можно вводить только 012, во втором только 0123 (я не использую 24 часа, максимум 23:59:59) в третьем и пятом 012345

← →
Paxer (2002-05-15 12:07) [5]

Подскажите плиз, где взять и что может этот компонент либо сбросьте на адрес pavel@dt.ck.ua.

Кто работал с компонентом TAdvStringGrid ? Найти похожие ветки