Hallo Alle!
Ich bin einwenig mit eigenen Classe am spielen. Ich möchte das lernen. Jetzt habe ich auf einer Form ein TEdit und ein TButton. Wenn ich auf dem Button klicke, soll der Text im TEdit erscheinen. Hier der Code. Das man das ganze einfacher machen kann, ist mit bekannt. Das soll nur eine Übung sein. Der Code klappt nicht.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Type
TEingabe =
Class(TEdit)
private
Ein:
String;
Public
procedure Eingeben(Ein:
String);
end;
procedure TEingabe.Eingeben(Ein:
String);
begin
Text := Ein;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TEingabe.Eingeben(Button1.Caption);
end;
end.
Was mache ich da falsch?
Grüße
Heike