| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Маска в StringGrid

Bagdat ©   (2005-10-17 16:21:00) 

Приветствую всех!!! Подскажите плиз, как сделать так чтобы в определенные ячейки StringGrid-а вводились только цифры. Заранее благодарен!!!

---

Leonid Troyanovsky   (2005-10-18 09:27:00) [1]

> Bagdat ©   (18.10.05 08:50) [5]
> Кто нибудь знает нет????


Кто-то, может, и знает. Однако, IMHO, важнее знать тебе.
Для этого есть, например, VCL Reference: TEditMask type.
Но, с другой стороны, трудно представить, что значит "вводили double",
т.к., самая общая форма подразумевает маску вроде #0.999999E#99.

Т.е., возможно, что желаемое и невозможно достичь c помощью маски,
а требует более решительных мер, скажем, замену InplaceEditor.

--
Regards, LVT.

---

Bagdat   (2005-10-18 08:50:00) [2]

Кто нибудь знает нет????

---

Bagdat   (2005-10-18 07:28:00) [3]

Я согласен с OnGetEditMask. Но к чему мне приравнивать value чтобы перед цифрами по желанию вводить знак '-' короче надо чтобы вводили double

---

Leonid Troyanovsky   (2005-10-17 17:41:00) [4]

> Bagdat ©   (17.10.05 16:21)  
> Приветствую всех!!! Подскажите плиз, как сделать так чтобы
> в определенные ячейки StringGrid-а вводились только цифры.


VCL Reference: OnGetEditMask Example

--
Regards, LVT.

---

begin...end   (2005-10-17 17:38:00) [5]

> Bagdat ©   (17.10.05 16:21)

> Подскажите плиз, как сделать так чтобы в определенные ячейки
> StringGrid-а вводились только цифры.

TStringGrid.OnGetEditMask

---

han_malign   (2005-10-17 17:36:00) [6]

событие OnKeyPress
примерно так:
procedure TParamsForm.sgParamsKeyPress(Sender: TObject; var Key: Char);
var gr: TGridRect;
   _param: TParam;
   dwAddr: DWORD;
   _s: string;
begin
 case(Key)of
 ^a: begin
   gr.Left:=0;gr.Top:=1;
   gr.Right:=sgParams.ColCount-1;gr.Bottom:=sgParams.RowCount-1;
   sgParams.Selection:=gr;
 end;
 #27: begin
   if(sgParams.EditorMode)then begin
     sgParams.EditorMode:=false;
     sgParams.Cells[sgParams.Col,sgParams.Row]:=F_sKeepEdit;
     if(sgParams.Objects[0,sgParams.Row]<>nil)
     then TParam(sgParams.Objects[0,sgParams.Row]).F_CurStatus:=F_KeepStatus;
   end;
 end;
 #32..#255: begin
   case(sgParams.Col)of
   0..2:if(not(Key in['0'..'9']))then begin
     Key:=#0;
     MessageBeep(0);
   end;
   3: begin
     _param:=RowParam(sgParams.Row,dwAddr,_s);
     if((_param=nil)or(dwAddr=cInvalidAddress)or not _param.ValidKey(Key,dwAddr))then begin
Key:=#0;
MessageBeep(0);
     end;
   end;
   end;
 end;
 end;{case(Key)}
end;


---

Наверх