Forum: Multimedia
by alzaimar,
18. Nov 2007
Gut vermutet ...
procedure TCustomForm.SetBorderStyle(Value: TFormBorderStyle);
begin
if FBorderStyle <> Value then
begin
FBorderStyle := Value;
AutoScroll := FBorderStyle in ;
if not (csDesigning in ComponentState) then RecreateWnd; // <<-- Möööööp
end;
end;
Forum: Multimedia
by alzaimar,
17. Nov 2007
Kommentiere einfach sukkzessive immer mehr Code aus, bis das Problem verschwindet.
Oder fange mit dem Rumpfprogramm an, das sich normal verhalten sollte und packe sukkzessive immer mehr Code hinzu, bis das Problem auftritt.