Also ich hab das so gemacht:
Delphi-Quellcode:
type
TMovPic = class(TImage)
private
FMoveable: Boolean;
protected
public
constructor Create(AOwner: TCOmponent); override;
procedure Move(direction: Byte); // 1= rechts, 2= links, 3= oben, 4= unten
published
property Moveable: Boolean read FMoveable write FMoveable default false;
end;
constructor TMovPic.Create;
begin
inherited Create(AOwner);
end;
procedure TMovPic.Move;
begin
if Moveable = false then Exit;
case direction of
// wird in die jewielige richtung verschoben
end;
hab das ganze dann installiert (wird in der Komp-Palette angezeigt). aus der komp-Palette auf eine neue form gezogen (Bild zugewiesen) und buttons die verschiedenen richtungen zugewiesen. zur Entwurfszeit wurde die Komponente mit Bild angezeigt. Es wurden auch keine Fehler gemeldet nur als ich es ausprobiert war die Komponente verschwunden.
Hab dann noch jedesmal bei Move die aktuelle Position in die Form-Caption geschrieben. Die hat sich immer richtig geändert.
Ich weiß nicht mehr weiter..
@frank: ich erzeuge die Komponente zur entwurfszeit! und dort wird sie ja auch angezeigt...
mfg
Ösichemiker