Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Problem mit Key-Code


alex9890 - So 07.11.10 17:21
Titel: Problem mit Key-Code
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 - So 07.11.10 17:33

Guckst du hier [http://www.delphi-library.de/viewtopic.php?t=15951]. :D


alex9890 - So 07.11.10 17:41

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 - So 07.11.10 17:46

Du muß OnKeyPress statt OnKeyDown verwenden
vergleich mal die Variablendeklarationen


alex9890 - So 07.11.10 17:53

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


Delete - So 07.11.10 19:34

Die Zeile muss erst selektiert werden...


alex9890 - So 07.11.10 19:56

und wie mache ich das?


bummi - So 07.11.10 20:04

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

Delphi-Quelltext
1:
ListBox1.ItemIndex := 7;                    


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

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 - So 07.11.10 20:08

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