Problem mit Key-Code

alex9890 · Hält's aus hier Beiträge: 7

Hi Leute,

hab eine ganz simple Frage, undzwar:
Was ist der Code für die Entfernen Taste? (Bei Enter Taste ist es z.B. #13)
Gibt es da vielleicht auch eine Tabelle oder so etwas?
Danke schonmal

Gausi · Verfasst: So 07.11.10 17:33

Guckst du hier.

_________________
We are, we were and will not be.

alex9890 · Hält's aus hier Beiträge: 7

ok vielen Dank dafür aber
wie kann ich dass jetzt in ein Programm umsetzen?

wenn ich schreibe

if key = VK_Delete ... dann kommt die Meldung "Inkompatible Typen"

genauso bei

if key = $2E ...

oder muss ich da einfach das "key" durch irgendetwas anderes ersetzen?

bummi · Verfasst: So 07.11.10 17:46

Du muß OnKeyPress statt OnKeyDown verwenden
vergleich mal die Variablendeklarationen

alex9890 · Hält's aus hier Beiträge: 7

Sorry ich bin noch nich erfahren mit Delphi
also
ich möchte, dass man beim Drücken der Entf-Taste einen Eindruck aus der ListBox Löschen kann.
Bis jetzt hab ich das so:

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = VK_Delete then
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

Es funktioniert aber immer noch nicht

Ehemaliges Mitglied Erhaltene Danke: 1

Die Zeile muss erst selektiert werden...

alex9890 · Hält's aus hier Beiträge: 7

und wie mache ich das?

bummi · Verfasst: So 07.11.10 20:04

eigentlich der Benutzer der wählt welche Zeile entfernt werden soll
per Code z.B.:

markieren

Delphi-Quelltext

1:	ListBox1.ItemIndex := 7;

Aber dann kannst Du Dein Delete auch direkt mit der Zeile abschicken

markieren

Delphi-Quelltext

1:
2:
3:
4:

// ertse Zeile löschen 
if ListBox1.Items.Count>0 then ListBox1.Items.Delete(0);
//letzte Zeile löschen
ListBox1.Items.Delete(ListBox1.Items.Count - 1);

alex9890 · Hält's aus hier Beiträge: 7

OK, danke für die Antworten habs jetzt geschafft.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme