Einige Sekunden warten

SignsOfCore · Beiträge: 22

Hallo!

Und zwar möchte ich, nachdem man mein Programm aufruft, erst 2 Bilder nach 1 Sekunde erscheinen und dann noch eins nach 2, wenn möglich noch mit diesem "langsam-komm" Effekt, dass es erst fast durchsichtig ist und dann immer klarer wird.

Geht das überhaupt? Wenn ja, wie?

Gruß
Core

GericasS · Verfasst: So 23.11.08 20:20

Ich glaube das könntest du entweder mit einem Timer umsetzten oder mit der Funktion Sleep()

_________________
Alexander N.
Neue Bewaffnung Amilo xi2428 T9300

SignsOfCore · Beiträge: 22

Schön und gut - Wie geht das?^^

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Dafür würde sich vermutlich ein Timer anbieten (Komponentenregister "System"). Den Intervall stellst du auf 1000 ms (=1 sekunde). Nun kannst du in die Prozedur des Timers soetwas schreiben wie

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(x);
  case x of
    1:
    begin
      Image1.Visible := true;
      Image2.Visible := true;
    end;
    2:
    begin
      Image3.Visible := true;
      Timer1.Enabled := false;
    end;
  end;
end;

Wobei x eine mit 0 initialisierte globale Integer-Variable ist.
Sleep ist vielleicht nicht so doll, da damit dein Programm einfriert (Keine Rückmeldung).

edit: wegen diesem "Einblende" Effekt, das wird etwas schwieriger, da das Standard-Image meines wissens keinen Tranzparenzeffekt unterstützt.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

SignsOfCore · Beiträge: 22

Dankeschön - ist das dass einzige was ich da reinkopieren muss (wo hin?) oder noch irgendetwas.
Steht in meinem lustigen Buch (leider) nicht drinn.

Gruß
Core

edit: Ihr seid ja flinker als flink...

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Ehm - Also mit copy&paste Programmierung kommst du nicht weit

Aber ich will dir mal eine Anleitung geben: Zieh einen Timer von der Registerkarte "System" auf die Form. Das ist eine non-VCL Komponente, die wird im späteren Programm nicht sichtbar sein. Klicke den Timer an. Setze die Eigenschaft "Intervall" auf 1000 (ist vermutlich schon.). Das bedeutet, dass die Prozedur des Timers alle 1000ms ausgeführt wird, bis sein "Enabled" auf false gesetzt wird (der Timer wird deaktiviert). Nun doppelklicke auf den Timer. Du landest im Code in der Prozedur des Timers. Hier gehört der Code rein. Die Variable x muss zuvor noch global deklariert und am besten im FormCreate mit 0 initialisiert werden (auf 0 gesetzt, soll das heißen

) Global deklariert heißt in dem fall:

markieren

Delphi-Quelltext

1:
2:
3:

var
  Form1: TForm1;
  x : Integer;

Etwa an dieser Stelle soll sie stehen.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

SignsOfCore · Beiträge: 22

Ui Danke!

Das geht dann auch mit anderen Sachen oder?
Z.B: Label1.Caption := 'test';

Gruß
Core

Edit: Klappt leider nicht! Hier der Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image2: TImage;
    Image1: TImage;
    Image3: TImage;
    Image4: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var 
  Form1: TForm1; 
  x : Integer;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(x); 
  case x of 
    1: 
    begin
      Image2.Visible := true;
      Image3.Visible := true;
    end;
    2: 
    begin 
      Image4.Visible := true;
      Timer1.Enabled := false;
    end; 
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Yogu · Verfasst: So 23.11.08 20:51

JayEff hat folgendes geschrieben :

Die Variable x muss zuvor noch global deklariert und am besten im FormCreate mit 0 initialisiert werden (auf 0 gesetzt, soll das heißen

)

SignsOfCore hat folgendes geschrieben :

markieren

Delphi-Quelltext

 
50:
51:
52:
53:
54:
55:

{ ... }
procedure TForm1.FormCreate(Sender: TObject);
begin
     
  ?  
     
end;

Versuche mal, den Tipp von user profile icon

JayEff umzusetzen. :idea:

SignsOfCore · Beiträge: 22

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
     x:= integer  (0);
end;

So?

Yogu · Verfasst: So 23.11.08 21:13

SignsOfCore hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
     x:= integer  (0);
end;

So?

Das würde IMHO auch gehen, aber das integer(...) kannst du auch weglassen:

markieren

Delphi-Quelltext

1:

x := 0;

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Yogu hat folgendes geschrieben :

Das würde IMHO auch gehen

Richtig, sollte es, denn du Typecastest einen Integer in einen Integer. (Du sagst deinen Program sowas wie "Hier guck, diesen Integer sollst du bitte nicht als Integer sondern als Integer behandeln!

" )

Ausserdem fehlt (logischerweise) noch etwas, was nicht aus dem Code ersichtlich wird: Du musst die Images, die zuerst mal unsichtbar sein sollen, auf Unsichtbar setzen. Dazu klickst du sie an und änderst den Wert von "visible" im Objektmanager von True auf False.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Tilman · Verfasst: Mo 24.11.08 04:32

Vielleicht hilft dieser Code bei dem problem weiter:
www.delphi-library.d...iewtopic.php?t=71382

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

jaenicke · Verfasst: Mo 24.11.08 05:19

Da wirst du bei den vorhandenen Kenntnissen aber wohl noch ein bissl was zu erklären müssen vermute ich einmal ;-)

.

SignsOfCore · Beiträge: 22

Dankeschön, hab den Fehler gefunden. Von Sichtbar auf Sichtbar setzten bringt nicht viel

Gruß
Core

Ehemaliges Mitglied Erhaltene Danke: 1

Klingt plausibel

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme