Hi Robert,
die Komponente zeichne ich nicht selbst. Das ist ein etwas abgewandeltes TPRLabel (von PowerPDF). Ich hab es mit OnMouse... Events abgestattet.
Aber trotzdem hier mal die Prozedure:
Delphi-Quellcode:
var
MRLabel: TmrPRLabel;
begin
MRLabel := TmrPRLabel.Create(PRLayoutPanel1);
MRLabel.Top := 100;
MRLabel.Left := 100;
MRLabel.Width := 100;
MRLabel.Top := 100;
MRLabel.Name := 'MRLabel'
MRLabel.Parent := PRLayoutPanel1;
MRLabel.OnMouseDown := MyMouseDown;
MRLabel.OnMouseMove := MyMouseMove;
MRLabel.OnMouseUp := MyMouseUp;
end;
In MyMouseDown bzw. MyMouse ab steht: Maus := true bzw. Maus := false.
MyMouseMove hab ich im ersten Beitrag.
Und wie meinst du das mit SetBounds?