| Autor |
Beitrag |
Roy
 
Beiträge: 184
Windows7 Ultimate
Delphi 2007, NET, Embarcadero
|
Verfasst: Do 23.08.07 10:14
Hallo Delphifreunde,
ich möchte eine Timerprocedure nur einmal aufrufen. Die Procedure beinhaltet da minimieren der Form, danach soll der Timer wieder auf Enabled gesetzt werden. Muss ich dass nun wiederum mit einem Timer tun? Das wäre ja ein Endloskreislauf!
Bitte um Hilfe
|
|
Narses
Beiträge: 10185
Erhaltene Danke: 1261
W11x64
TP3 .. D7pro .. D10.2CE
|
Verfasst: Do 23.08.07 10:22
Moin!
 Roy hat folgendes geschrieben: | | ich möchte eine Timerprocedure nur einmal aufrufen. Die Procedure beinhaltet da minimieren der Form, danach soll der Timer wieder auf Enabled gesetzt werden. |
Du redest wirr...  Was denn nun, nur einmal oder doch zyklisch!? 
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
#Crasher
Beiträge: 23
Win 95, Win 98, Win NT, Win XP (used), Win Vista
D3, D4, D6, D7, D2005, BDS2006 Arch. UPD2
|
Verfasst: Do 23.08.07 12:10
Erkläre einfach was du machen möchtest, ein Timer ist dazu da sachen nach einem bestimmten Interval zu wiederholen.
Wenn du die Timer Procedure nur einmal aufrufen möchtest brauchst du auch nicht unbedingt einen Timer.
- Crasher
|
|
Stübi
Beiträge: 331
Win XP, Win 2000, Win ME
D5 Ent, D7 Prof, D2005 PE, C#
|
Verfasst: Do 23.08.07 12:20
Wenn ich Dich einigermassen richtig verstanden habe, möchtest Du den Timer einfach disablen.
Du kannst einfach am Ende der Timerprocedure ein timer.enable := False; schreiben. (och mann ich hab solange nicht mehr geprogt, hoffentlich stimmt die syntax.)
Grüsse Stübi
_________________ Neun von zehn Stimmen in meinen Kopf sagen, dass ich nicht verrückt sei. Die zehnte summt die Tetrismelodie.
|
|
Roy 
Beiträge: 184
Windows7 Ultimate
Delphi 2007, NET, Embarcadero
|
Verfasst: Do 23.08.07 20:00
Also Danke erstmal für eure Antworten. Mein Anliegen ist folgendes: Timer 1 soll die Hauptform minimieren und ein Unterfenster geht auf. Ich lasse das minimieren über einen Timer Zeitversetzt geschehen weil mit dem Buttonklick ein Zwischenfenster mit einer Aktualisierungsmeldung erscheint. Nach beenden der Arbeit auf dem "Unterfenster erfolgt close und es sollüber die Procedure
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| Var lngHwnd:THandle;
begin
lngHwnd := FindWindow('Shell_TrayWnd', '');
If lngHwnd>0 Then
PostMessage(lngHwnd, WM_COMMAND, Max_ALL, 0);
close;
end; |
das Hauptfenster wieder geöffnet werden. Jedoch der Timer auf dem Hauptformular setzt immer wieder die Hauptform auf minimieren.
Wie schaffe ich es nun den Timer auf dem Hauptformular auf Enabled:=false zu setzen?
|
|
JayEff
Beiträge: 2971
Windows Vista Ultimate
D7 Enterprise
|
Verfasst: Do 23.08.07 20:53
... über TimerX.Enabled := false; ?  _________________ >+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Do 23.08.07 21:17
Wie JayEff schon sagt
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False; Caption:='Bla...';
end; |
Oder hab Ich da was falsch...Verstanden _________________ Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
|
|
arj
Beiträge: 378
Win XP/Vista, Debian, (K)Ubuntu
Delphi 5 Prof, Delphi 7 Prof, C# (#Develop, VS 2005), Java (Eclipse), C++, QT, PHP, Python
|
Verfasst: Fr 24.08.07 07:45
Wobei ich ehrlich gesagt den Sinn des Timers momentan gar nicht sehe...
|
|
