Delphi Unterprozedur - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Unterprozedur

Ein Thema von Kingpin000 · begonnen am 21. Jan 2007 · letzter Beitrag vom 21. Jan 2007

Vorheriger Beitrag

Nächster Beitrag

Kingpin000

Registriert seit: 12. Dez 2006
21 Beiträge

Unterprozedur

21. Jan 2007, 10:24

kann mir mal einer erklären, warum mir beim 2.procedure ein fehler angezeigt wird?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

 procedure TForm1.Tasten(Sender: TObject; var Key: Char);

    begin

      Case Key of

      'w':image1.Top:=image1.Top-30;

      's':image1.Top:=image1.Top+30;

      'a':image1.Left:=image1.Left-30;

      'd':image1.Left:=image1.Left+30;

      end;

begin

image1.Visible:=true;

Tasten;

end;

end.