Fang museklik i designtilstand hos TCustomPanel
Hej eksperter.Hvordan kan man fange et museklik i designtilstand samt sætte fokus på under-komponenter (som man kender det fra TPageControl)?
Jeg forsøger at lave et visuelt komponent, hvor der er oprettet andre under-visuelle komponenter inden i. Nu vil jeg gerne kunne sætte fokus på de interne komponenter i designtilstand, for så
at kunne trække labels, billeder osv - ind i under-komponenterne + skifte mellem dem i designtilstand.
Har kigget på TPageControl, men kan kun umiddelbart få det til at virke med "mouse move", ved at fange message:
procedure ninja.cmDesignHitTest(var msg:tCmDesignHitTest);
begin
with msg do begin
if isDesignMode then clickInDesignMode(xPos,yPos);result:=1
end
end;
procedure ninja.clickInDesignMode(const x,y:integer);//virtual;
begin
//
end;
//mvh mbs
