Forum: Multimedia
Delphi
by Sunlight7,
6. Jan 2007
Du kannst auch beide Buttons einzeln verwenden.
procedure TForm1.Leicht1Click(Sender: TObject);
begin
Timer1.Interval:=500;
end;
procedure TForm1.Schwer1Click(Sender: TObject);
begin
Timer1.Interval:=250;
Forum: Multimedia
Delphi
by Sunlight7,
6. Jan 2007
Das Image, was Du hinten haben möchtest klickst Du mit der rechten Maustaste an und wählst "Nach hinten schicken".
Du solltest dann auch DoubleBuffered des Form auf True setzen, damits net flimmert.
procedure TForm1.SchwerLeichtClick(Sender: TObject);
begin
If Sender=Leicht1 then
Timer1.Interval:=500 else
Timer1.Interval:=250;
end;