Nur Ziffernblock aktiviert

Startprogrammer · Hält's aus hier Beiträge: 9

Ich habe versucht so einen Taschenrechner zu programmieren, allerdings möchte ich, dass nur der rechte Ziffernblock aktiv ist: Sprich --> Alle anderen Tasten außer Betrieb bis auf 0-9, +, -, /, und * .

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Um das zu verwirklichen, benötigst du die VirtualKeys.

Und dann machst du eine OnKeyDown-Prozedur für dein TEdit (o.Ä.) in der Art:

markieren

Quelltext

1:
2:
3:
4:
5:

Case Key Of:
  VK_NUMPAD1: Edit1.Text := Edit1.Text+IntToStr('1');
  VK_NUMPAD2: Edit1.Text := Edit1.Text+IntToStr('2');
    ...
  end;

Für die anderen Tasten machst du dann einfach nichts. Das geht mit:

markieren

Quelltext

1:

 Key := 0;

Wenn du weitere Fragen hast - einfach posten. :wink:

_________________
If accidentally read, induce vomitting.

Ehemaliges Mitglied Erhaltene Danke: 1

Warum einfach, wenn es umständlich geht. :roll:

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#48..#57, #8, #42, #43, #45, #46, #47]) then
    key := #0;
end;

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Oder so... :wink:

_________________
If accidentally read, induce vomitting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme