Einzelnen Beitrag anzeigen

Sam Spade

Registriert seit: 11. Nov 2006
Ort: Karlsruhe
3 Beiträge
 
#1

Wert innerhalb Komponente übergeben

  Alt 8. Apr 2016, 19:01
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
schon seit Jahren geheilter Versionen-Junkie!
  Mit Zitat antworten Zitat