Hoi zusammen,
ich möchte eine Komponente erstellen, soweit so gut.
Delphi-Quellcode:
type
// Display
TDisplay = class(TEdit)
protected
procedure KeyPress( var Key:Char); override;
end;
TSimpleSlide = class(TPanel)
private { Private-Deklarationen }
//
fDisplay : TDisplay;
//
end;
//
procedure TDisplay.KeyPress( var Key:Char );
var i :integer; s :string; d :double;
begin
if key=#13 then
begin
s := text;
val(s,d,i);
// wie bekomme ich den wert von "text" bzw d
// nach TSimpleSlide..?
end;
inherited KeyPress(Key);
end;
nun möchte ich das Ergebnis (d:double) aus Keypressed der Klasse TSimpleSlide übergeben, damit ich damit weiterarbeiten kann.
Wie geht das?
Sam