Button nach einer bestimmten Zeit deaktivieren

[Kruppi]

Hallo

ich hab folgende frage


ich habe eine Anwendung. auf der anwendung ist ein button drauf. wie genau stelle ich es an dass z.b am 10.02.2016 der button deaktiviert wird?
habt ihr vllt schon etwas in der art gemacht oder gibt es tutorials dafür?

Danke im Voraus

[Sir Rufo]

Mit dem TActionManager eine TAction erstellen und im TAction.OnUpdate einfach TAction.Enabled setzen, so wie es gerade sein soll.

Dem Button weist man dann einfach diese Action zu über TButton.Action.

Wenn die Action einem sichtbaren Control zugewiesen ist, dann wird jedesmal, wenn die Anwendung in den Idle-Status geht diese OnUpdate Methode ausgeführt.

[Darlo]

Zum Beispiel im FormCreate auf Datum prüfen und ggf. Button deaktivieren.

Delphi-Quellcode:

if (now >= (strtodate('10.02.2016')) then
  begin
    showmessage('Funktion wurde deaktiviert weil...');
    myButton.enabled := false;
  end;

[Kruppi]

Delphi-Quellcode:

procedure TForm5.FormShow(Sender: TObject);
begin
 if ( Datetimetostr(NOW) >ExpirationDate) then 
 Begin
  Showmessage('Funktioniert nicht mehr');
  close;
 End;
end;

Danke ich hab es jetzt so gelöst

hab es auch etwas geändert dass also nicht ein button geschlossen wird sondern das ganze formular

[Darlo]

datetimetostr? Vergleichst Du da Strings mit >??

[himitsu]

Zitat von Darlo:

datetimetostr? Vergleichst Du da Strings mit >??

Einfach Windows auf eine andere Sprache einstellen und schon funktioniert es nicht mehr.

[Sir Rufo]

Zitat von himitsu:

Zitat von Darlo:

datetimetostr? Vergleichst Du da Strings mit >??

Einfach Windows auf eine andere Sprache einstellen und schon funktioniert es nicht mehr.

Die Sprache ist hier das geringste Problem.

Selbst wenn sich diese nicht ändert haben wir hier folgendes Verhalten:

Das Formular kann immer an dem 01. - 10. Tag eines beliebigen Monats geöffnet werden. An allen anderen Tagen eines beliebigen Monats wird es einfach geschlossen.

Also z.B. auch am 01.03.2016.
Dafür aber nicht am 11.01.2016

Ob das so gewünscht ist?

[hoika]

Hallo,
ich würde hier knallhart die TDateTime mit > vergleichen.
Es wird ja nicht auf = abgefragt.

Was anderes, was habt ihr gegen Strings und Datumsvergleiche, wenn man es richtig macht,
also mit FormatDateTime('yyyy.mm.dd', TDateTime_Wert) ?

Heiko

[Darlo]

Zitat von hoika:

Was anderes, was habt ihr gegen Strings und Datumsvergleiche, wenn man es richtig macht,
also mit FormatDateTime('yyyy.mm.dd', TDateTime_Wert) ?
Heiko

Jedem gerne das Seine, aber um Datumswerte zu vergleichen diese in ein String formatieren und dann vergleichen halte ich für nicht optimal...

[DeddyH]

Wenn man Äpfelchen mit Birnchen vergleicht, ist das Ergebnis nicht immer das erwartete. Man muss also das Äpfelchen in ein Birnchen verwandeln oder andersherum, Hauptsache, sie sind am Ende beide vom selben Typ. Wenn man aber bereits 2 Äpfelchen hat, weshalb sollte man dann erst beide in Birnchen verwandeln, um sie zu vergleichen?

[edit] Hinzu kommt noch, dass es sich u.U. um eine ganz bestimmte Sorte Birnchen handeln muss, damit der Vergleich funktioniert. [/edit]