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;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)