Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure Label2Click(Sender: TObject);
procedure Label1Caption;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1; Taste: Word;
implementation
procedure Label1Caption;
begin
keypreview:=true;
if (Word = ord ('
A'))
then label1.caption := ('
Taste A wurde gedrückt');
if (Word = ord ('
B'))
then label1.caption := ('
Taste B wurde gedrückt');
end;
end.
{Fehler:
Nicht deklariete Bezeichner:
-keypreview
-label1
-caption }
[b]So hatte ich mir das eigentlich ungefähr gedacht aber warum funktioniert das nicht?
Grüße
TucTuc
[Edit=Matze][delphi]-Tags geschlossen. MfG Matze[/edit]