Countdown und noch weitere Fragen

[Lexo]

Hi!
Als Erstes will ich sagen, dass ich ein blutiger Anfänger in Sachen Delphi bin... (noch ).
Ich hoffe daher ihr könnt mir in irgendeiner Form weiterhelfen, die ich verstehe.
Ich bin ein Programm am basteln, dass, nachdem eine eingegebene Zeit abgelaufen ist, eine vorher eingegebene Homepage aufruft. Dafür hab ich mir schon mal ein paar Sachen aus dem Internet zusammengewürfelt. Das funktioniert in einer Hinsicht schon.
Hier mein erster Versuch:

Delphi-Quellcode:

unit countdown;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    EdStunden: TEdit;
    LbAufgabe: TLabel;
    EdMinuten: TEdit;
    TiCounter: TTimer;
    LbStundenMinuten: TLabel;
    LbCounterSt: TLabel;
    LbCounterMin: TLabel;
    EdURL: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure TiCounterTimer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Minuten, Stunden, Counter: real;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  Stunden := StrToFloat(EdStunden.Text);
  Minuten := StrToFloat(EdMinuten.Text);
  EdStunden.Color := clMedGray;
  EdMinuten.color := clMedGray;
  LbCounterSt.Visible := true;
  LbCounterMin.Visible := true;
  TiCounter.Enabled := true;
  EdStunden.ReadOnly := true;
  EdStunden.ReadOnly := true;

end;


procedure TForm1.TiCounterTimer(Sender: TObject);
begin

  If EdStunden.Text = ' '
    then EdStunden.Text := '1';

  If (Minuten = 0) and (Stunden > 0)
    then begin
      Minuten := 60;
      Stunden := Stunden -1;
    end;

  If (Stunden = 0) and (Minuten = 0)
    then begin
      TiCounter.enabled := false;
    ShellExecute(handle,NIL,'http://www.t-online.de', NIL, NIL, SW_SHOWNORMAL);
    end
    else Minuten := Minuten -1;

  LbCounterSt.Caption := FloatToStr (Stunden);
  LbCounterMin.Caption := FloatToStr (Minuten);
end;

end.

Dieses T-Online is nur mal ein Beispiel.
So nun möchte ich dieses aber irgendwie so machen, dass sich die Adresse, die ich vorher in
EdURL eingegeben habe dann öffnet. Nur hab ich keine Ahnung wie das gehen soll (Bestimmt einfach).
Außerdem habe ich noch das Problem, dass beim Start des Programms die Aktion direkt ausgeführt wird. Das soll aber erst nach dem ablauf der Zeit geschehen.
Als Zweites hab ich noch vor, dass ich noch zwei Extraeingabefelder mache, wo ich eingeben kann, in wie viel Minutenabständen eine andere Homepage aktualisiert wird.

Ich würde mich sehr über einen Lösungsvorschlag von euch freuen!

MfG
Lexo

[malo]

Hallo Lexo,

erstmal herzlich willkommen in der DP :party:

Bitte eröffne demnächst zu jeder Frage ein neues Thema ;)

Zu deinen Fragen:

1. Die URL aus edURL kannst du aufrufen, indem du die URL aus der ShellExecute-Prozedur mit folgendem ersetzt:

Delphi-Quellcode:

PChar(EdURL.Text)

2. Die "Aktion" kannst du ein/ausschalten, indem du die Eigenschaft "Enabled" deines Timers auf True, bzw. auf False setzt. Das kannst du im Objektinspetktor machen oder aber auch per Code:

Delphi-Quellcode:

TiCounter.Enabled := true; //Timer läuft
TiCounter.Enabled := false; //Timer läuft nicht
TiCounter.Enabled := not TiCounter.Enabled; //Wenn der Timer läuft, wird er abgestellt, wenn er aus ist, fängt er wieder an zu laufen

Wenn es von Anfang an aus sein soll, dann stell die Eigenschaft im Objektinspektor um.

Zu deiner anderen Frage erstellst du bitte einen neuen Thread ;)