"Flimmern" bei verschieben in OnMouseMove

[Die Muhkuh]

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?