Hi,
ich nehme mir mal das Erzeugen raus und ändere das entsprechend ab.
Der Rest muss dann natürlich analog erfolgen
Delphi-Quellcode:
procedure TMain.BtErzeugenClick(Sender: TObject);
var
idx : integer;
begin
// Objekt erzeugen und an die Liste hängen
// idx hat dann die Position in der Liste
idx := Liste.Add( TBewegteUhr.Create (Main.Width div 2, Main.Height div 2, 75) );
// Liste.Items[ idx ] ist vom Typ Pointer, zeigt also nur irgendwo hin
// TBewegteUhr( Pointer ) sagt dem Programm, wie die Informationen an der Stelle
// vom Pointer zu interpretieren sind
TBewegteUhr( Liste.Items[ idx ] ).Kennt(Main);
TBewegteUhr( Liste.Items[ idx ] ).Zeigen;
end;
cu
Oliver
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)