es geht leider nicht. es wird kein ereignis ausgelöst:
Delphi-Quellcode:
constructor TmyCaption.Create(paint:TPaint;x,y,w,h:Integer; Caption:String);
begin
fpaint:=paint;
fCaption:=Caption;
fpos.x:=x; fpos.y:=y; fsize.X:=w; fSize.y:=h;
fpaint.bufferBmp.Canvas.Pen.Style:=psSolid;
CaptionDir(1);
isSel:=False;
//
Left:=x;Top:=y;
Width:=w; Height:=h;
BoundsRect:=rect(x,y,w,h);
OnMouseMove:= MouseMouse;
end;
habe ich werte vergessen ?brauche ich ein handel ?