2 Farben auf einer Form mit weichen Übergängen

[Deep-Sea]

Tja ... was soll ich dazu sagen ... kurz um: Doof! ...
(Ich nehme natürlich an, dass "MyRepaint" eine Methode von TfrmMain ist ^^)

[Aurelius]

?

ICh ahbs das ganze doch schon vorher eingebaut, d.h. unter

Delphi-Quellcode:

private
procedure MyRepaint;

...

procedure TfrmMain.MyRepaint;
var
  I: Integer;
begin
  DisableAlign;
  For I := 0 to ControlCount - 1 do With Controls[0] do
  begin
    Parent := nil;
    Parent := Self;
  end;
  EnableAlign;
end;

Ist da was falsch dran?

[Deep-Sea]

Nein nein, soweit richtig (vlt. sollte man, wenn man DisableAlign drinnen lässt, noch Try-finally nutzen ^^) ...
Warum es bei dir nicht geht ... ka