StringGrid - uložení hesla do buněk

[Vratik]

a co ten druhý dotaz?
Je řešitelný, nebo to je nějaka chyba gridu?

[Stanislav Hruška]

K tomu sa vyjadriť neviem. Nemám o tom vedomosti.

[našinec]

Pro Vratika: a) To není taCenter;
                  b) Musíš zvětšit výšku buňky.

[Vratik]

Děkují.
Mužu ještě jeden dotaz?
EditMask.
http://helpcentral.componentone.com/docs/vsflexgrid8/editmaskproperty.htm

Když chcí povolit jen čisla a ,

12,2
12,44
123,12

[Stanislav Hruška]

procedure OnlyInt(var Key: Char);
begin
  // Allow only number and special keys (arrow, tab, BS, ...)
  if not CharInSet(Key, [#0, #8, '0'..'9']) then
    Key := #0;
end;

[Vratik]

Tak je to sice pěkné, ale bych to potřeboval do procedury StringGrid1GetEditMask

Kód: Delphi [Vybrat]

1. procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
2.   var Value: string);
3. begin
4.   case ACol of
5.     1: Value := '0000';
6.     2: Value := '';
7.     3: Value := '!000;1;_';
8.     4: Value := '!99/99/00;1;_';
9.     5: Value := '!90:00;1;_';
10.   end;
11. end;

[Stanislav Hruška]

Existuje funkcia TryStrToInt();

[Vratik]

Znám ale bych spíš řek, že vůbec nechápeš co potřebují.

Toto mi povoli napsat do 6 sloupce jen 5 čisel ale ne s desetinou čarko
Jak na to, aby mi to vzalo i tu čardu?

Kód: Delphi [Vybrat]

1. procedure TForm1.AdvStringGridGetEditMask(Sender: TObject; ACol, ARow: Integer;
2.   var Value: string);
3. begin
4.   if (ACol=6)then  Value := '00000';
5. end;

[JaroB]

Což zkusit http://www.micrel.cz/delphi/download/jbstrgrd.zip pro snazší manipulaci s hodnotami buněk?