Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
30. Aug 2004
Was heißt: "Gehtn nicht"? Kommt eine Fehlermeldung, gehts nicht zu kompilieren, ...?
Hast du alle ParentComponenten und die Parentcomponenten davon etc. auch auf Doublebuffered?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
15. Aug 2004
wenn du "left :=" oder "top :=" aufrufst wird intern nix anderes gemacht als "Setbounds" aufgerufen.
Das heißt bei dir wird intern 2 mal setbounds aufgerufen. Ändere es am besten so ab
if Sender is TmrPRLabel then
begin
if Maus and (((Sender as TmrPRLabel).Top <> x) or ((Sender as TmrPRLabel).Left <> y)) then
begin
(Sender as TmrPRLabel).SetBounds(x,y,(Sender as...