Bilder erscheinen und verschwinden lassen!

[Sharky]

Hai chriss,

sollte eigentlich gehen.

Ich habe es mit diesem Code gemacht und es läuft

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 timer1.Enabled := False;
 If (ausblenden) then
  begin
    Image1.Visible := False;
  end
 else
  begin
   Image1.Visible := True;
   timer1.Enabled := True;
  end;
 ausblenden := Not (ausblenden);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ausblenden := False;
 Timer1.Enabled := True;
end;

ausblenden ist eine globale Variable vom Typ Boolean;

sind noch andere Objekte auf dem Formular oder "nur" das Bild?