Autor Téma: StringGrid - uložení hesla do buněk  (Přečteno 2138 krát)

Vratik

  • Host
Re:StringGrid - uložení hesla do buněk
« Odpověď #15 kdy: 03-03-2019, 08:52:48 »
a co ten druhý dotaz?
Je řešitelný, nebo to je nějaka chyba gridu?

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4574
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:StringGrid - uložení hesla do buněk
« Odpověď #16 kdy: 03-03-2019, 09:00:19 »
K tomu sa vyjadriť neviem. Nemám o tom vedomosti.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline našinec

  • Hrdina
  • ****
  • Příspěvků: 415
  • Karma: 5
Re:StringGrid - uložení hesla do buněk
« Odpověď #17 kdy: 03-03-2019, 16:23:25 »
Pro Vratika: a) To není taCenter;
                  b) Musíš zvětšit výšku buňky.
« Poslední změna: 03-03-2019, 18:01:19 od < z > »

Vratik

  • Host
Re:StringGrid - uložení hesla do buněk
« Odpověď #18 kdy: 04-03-2019, 05:55:37 »
Poor
Rated 1 time
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

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4574
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:StringGrid - uložení hesla do buněk
« Odpověď #19 kdy: 04-03-2019, 08:40:03 »
Poor
Rated 1 time
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;
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Vratik

  • Host
Re:StringGrid - uložení hesla do buněk
« Odpověď #20 kdy: 04-03-2019, 09:10:42 »
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;

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4574
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:StringGrid - uložení hesla do buněk
« Odpověď #21 kdy: 04-03-2019, 10:16:53 »
Existuje funkcia TryStrToInt();
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Vratik

  • Host
Re:StringGrid - uložení hesla do buněk
« Odpověď #22 kdy: 04-03-2019, 10:30:16 »
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;

Offline JaroB

  • Guru
  • *****
  • Příspěvků: 973
  • Karma: 27
    • Verze Delphi: XE8, Seattle
Re:StringGrid - uložení hesla do buněk
« Odpověď #23 kdy: 04-03-2019, 14:13:08 »
Což zkusit http://www.micrel.cz/delphi/download/jbstrgrd.zip pro snazší manipulaci s hodnotami buněk?