Hallo,
Zitat von
maximus Caesar:
Delphi-Quellcode:
type
TImageMove = class(TImage)
private
FMoveTo:String;
FGeschwindigkeit:longint;
FZahl1:Integer;
FZahl2:Integer;
FStatus:Boolean;
{ Private declarations }
protected
{ Protected declarations }
public
procedure Move; <---
published
property Zahl1 : Integer Read FZahl1 Write FZahl1;
property Zahl2 : Integer Read FZahl2 Write FZahl2;
property MoveTo : String Read FMoveTo Write FMoveTo;
property Geschwindigkeit : longint Read FGeschwindigkeit Write FGeschwindigkeit;
property Status : Boolean Read FStatus Write FStatus;
{ Published declarations }
end;
...
procedure TImageMove.Move;
begin
...
end;
...
Ich habe oben die Prozedur Move in deine Klasse TImageMove verschoben. Vorher war sie eine globale Prozedur, die nichts mit deiner Komponente zu tun hatte.
grüße, daniel