Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi - und , in stringgrid ermöglichen (https://www.delphipraxis.net/23468-und-stringgrid-ermoeglichen.html)

herrentor 3. Jun 2004 17:10


- und , in stringgrid ermöglichen
 
hallo

ich hab eine letztes problem in meinem programm. und zwar untersage ich durch folgende prozedur, das in meinen stringgrid zeichen eingegeben werden können, allerdings möchte ich - (minus) und , (komma) eingeben können.

Code:

procedure TForm1.TabKeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;

procedure TForm1.TabKeyDown(Sender: TObject; var Key: Word;  
  Shift: TShiftState);
begin
 Stgrid_key:=true;
 stgrid_lastkey:=char(key);
end;

Markus K. 3. Jun 2004 17:13

Re: - und , in stringgrid ermöglichen
 
Hallo herrentor,
dann musst du die entsprechenden Zeichen noch ergänzen (#44(Komma);#45(Minus).

Tschüß Markus

herrentor 3. Jun 2004 17:27

Re: - und , in stringgrid ermöglichen
 
cool besten dank. wo kann ich eine tabelle finden, die all solche angaben über die zeichen erhält?

Markus K. 3. Jun 2004 17:32

Re: - und , in stringgrid ermöglichen
 
hier zum Beispiel http://www.asciitable.com/

Tschüß Markus

Christian Seehase 3. Jun 2004 18:22

Re: - und , in stringgrid ermöglichen
 
Moin Herrentor,

solche Codes bekommst Du i.d.R. auch aus der Zeichentabelle (Startmenü\Programme\Zubehör\Systemprogramme).

Allerdings solltest Du Dir auch unbedingt mal GExperts anschauen (http://www.gexperts.org/).
Darin ist auch eine Zeichentabelle enthalten.

herrentor 4. Jun 2004 00:24

Re: - und , in stringgrid ermöglichen
 
ok, danke.

und danke an diejenigen, die immer eine Antwort parat hatte. dieses forum hat mir echt sehr geholden. ich kann jetzt nur sagen, das programm steht. schluss mit fragen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz