Keys in Zeichen umwandeln?

bruce185 · Beiträge: 283 winXP D7 Ent

Hallo,
ich habe ein kleines problem und zwar, möchte ich die Keys in Zeichen umwandeln, wenn ich es umwandel, dann werden diese immer in Gross Buchstabe umgewandelt obwohl ich nicht die Shift Taste gedrückt halte:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  taste := Chr(Key);
  Label1.Caption := 'Du hast '+taste+' gedrückt!';
end;

Ich möchte das wenn ich nicht die Shift Taste halte, das diese Keys in klein buchstaben umgewandelt werden und wenn ich die Shift Taste halte, das diese dann in gross buchstabe umgewandelt werden.

Wie könnte ich das ambesten lösen?

Ich bedanke mich schonmal im Voraus.

MfG

Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Do 07.02.2008 um 15:41

_frank_ · Verfasst: Do 07.02.08 15:55

was spricht gegen

markieren

Delphi-Quelltext

1:	if not ssShift in Shift then taste:=lowercase(taste);

HTH Frank

_________________
EB FE (die wahrscheinlich kürzeste Endlosschleife der Welt

)
BA 01 00 00 00 52 EB 09 BB 4D 11 86 7C FF D3 EB 0D E8 F2 FF FF FF 63 68 61 72 6D 61 70 00 C3

bruce185 · Beiträge: 283 winXP D7 Ent

Danke Dir.
Ich wollte das auch erst mit LowerCase lösen aber das bringt mir nicht weiter, weil es noch andere Zeichen gibt außer Buchstaben.

Kann man das nicht irgendwie anders lösen?

MfG

_frank_ · Verfasst: Do 07.02.08 16:11

welche zeichen wären das z.B.?
evtl musst halt manuell den keycode umrechnen á la

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

if not sshift in Shift then
begin
  case key of
    65..90:taste:=char(key+32);
    //andere zeichen ggf. per key+-x berechnen
  end;
end;

gruß Frank

_________________
EB FE (die wahrscheinlich kürzeste Endlosschleife der Welt

)
BA 01 00 00 00 52 EB 09 BB 4D 11 86 7C FF D3 EB 0D E8 F2 FF FF FF 63 68 61 72 6D 61 70 00 C3

GTA-Place · Verfasst: Do 07.02.08 16:58

Hehe, manche Antworten sind schon kreativ :lol:

.

Benutze OnKeyPress. Da wird der Key als Char mit Groß-/Kleinschreibung geliefert.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

bruce185 · Beiträge: 283 winXP D7 Ent

GTA-Place hat folgendes geschrieben:

Hehe, manche Antworten sind schon kreativ :lol:

.

Benutze OnKeyPress. Da wird der Key als Char mit Groß-/Kleinschreibung geliefert.

Schön wärs aber ich kann keine Key abfrage in OnKeyPress machen :roll:

markieren

Delphi-Quelltext

1:	[Fehler] Unit1.pas(109): Inkompatible Typen

EDIT: Sry, war mein fehler, nun funktioniert es, Danke.

MfG

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme