Deutsches Lazarusforum

supi funktioniert danke!:)

Ich würde gerne den Konami code (hoch hoch runter runter links rechts links rechts B A) in mein Programm einbauen.


procedure TfmTicTacToe.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

if Key = VK_UP then
begin
Key := 0;
if Key = VK_UP then
begin
Key := 0;
if Key ...

vielen dank! hat alles geklappt:)

der code da oben steht in meinem programm weit oben und wird ausgeführt wenn ich auf den knopf drücke (btnNeu).

in einer anderen prozedur habe ich eine if abfrage und wenn diese wahr wird dann soll das passieren was in der oberen prozedur steht, sodass ich statt,

if zahl1 = 5 then
procedure ...

Ich würde gerne
procedure TfmBitter.btnNeuClick(Sender: TObject);
begin
btn1.Caption := ( '' );
btn1.Enabled := true;
btn2.Caption := ( '' );
btn2.Enabled := true;
btn3.Caption := ( '' );
btn3.Enabled := true;
btn4.Caption := ( '' );
btn4.Enabled := true;
btn5.Caption := ( '' );
btn5 ...