Schleife zum Wiederholen eines Sources

[davidwittesz]

wenn jemand lust und zeit hatt könnte er mir ja mal den surce debuggen ich komme nicht weiter

Delphi-Quellcode:

unit Unit1;

interface

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

type
    TForm1 = class(TForm);
    TMyThread= class(TThread)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

private
    { Private declarations }
protected
     procedure Execute; override;
end;

var
       Form1: TForm1;

implementation

{$R *.DFM}

procedure TMyThread.Execute;
begin
  while Not Terminated do
  procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  w : hWnd;
begin
// Externes Programm oeffnen
ShellExecute(0, PChar('open'), 'C:\Programme\Internet Explorer\IEXPLORE.EXE','', '', SW_SHOWMINIMIZED);
for
  i := 0 to 10 do
  begin
    Label1.Caption := IntToStr(i);
    Label1.Repaint;
    // Pause (in msec)
    Sleep(500);
end;
  // Externes Programm schliessen
  w := FindWindow(NIL,'about:blank - Microsoft Internet Explorer');
  if W<>0 then
    PostMessage(W, wm_close, 1, 1);
end;

procedure THauptForm.Button2Click(Sender: TObject);
begin
  MyThread.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

danke whitey

[edit=Luckie]Es geht auch mit weniger Leerzeilen. Mfg, Luckie[/edit]