Hilfe ( Lies X Position)

[Sir Rufo]

Zitat von xman236:

Mittlerweile habe ich es versucht

Delphi-Quellcode:

procedure TFrmMain.Button5Click(Sender: TObject);
var
  test: TBogen;
  x : integer;
begin
  test := TBogen.Create(zeichenfenster,100,100,100,70,clGreen) ;

    x := test.LiesXPosition ;

  end;

Ist das ok? Aber wo kann ich die x werte eingeben?

Die Function LiesXPosition liefert Dir einen Wert ... du kannst dort nichts eintragen.
Darum heißt die ja auch sinnigerweise LiesXPosition und nicht SchreibXPosition!

Du kannst also die X-Position des Bogens lesen und dann z.B. ausgeben lassen

Delphi-Quellcode:

procedure TFrmMain.Button5Click(Sender: TObject); 
var 
  x : integer; 
begin 
  x := test.LiesXPosition;
  ShowMessage( IntToStr( x ) );
end;