Hallo,
Wahrscheinlich ist das Problem wieder mal bekannt, ich finde nur nicht die richtigen Suchparameter, aber ich habe mit
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
radius, r : Integer;
rt : TRect;
i : Integer;
dtest : TComponent;
begin
radius := 400;
for r := radius downto 1 do
begin
rt := Rect(0,0,10, -r);
OffsetRect(rt, 600, 425);
Canvas.Pen.Color := ColorsBetween([clBlack, clGreen, clYellow, clred], r / radius);
Canvas.Polygon([Point(rt.left, rt.top), Point(rt.right, rt.top), Point(rt.right, rt.Bottom), Point(rt.left, rt.bottom)]);
end;
end;
ein Rechteck gezeichnet. Wenn das Fenster jetzt aus irgendeinem Grund in den Hintergrund geschoben wird, dann verschwindet das Rechteck. Wie kann ich das verhindern?
Gibt es vielleicht irgendein Formularelement (Image oder Paintbox oder sowas) in das ich das Rechteck zeichnen kann, damit es nicht verschwindet?
[edit=Phoenix]'Code' in Delphi-Tags geändert. Bitte nächstes mal auf die richtigen Tags achten. Mfg, Phoenix[/edit]