Moin Moin!
Ich versuche mich gerade mal an der Programmierung eines Extra Threads. Mein Kunstwerk:
Delphi-Quellcode:
unit MainFormUnit;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls,
Vcl.WinXCtrls,
Vcl.ExtCtrls;
type
TheThread =
class(TThread)
protected
procedure Execute;
override;
end;
type
TMainForm =
class(TForm)
Indicator: TActivityIndicator;
CounterLabel: TLabel;
StartThreadBtn: TButton;
procedure StartThreadBtnClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
MainForm: TMainForm;
Thread: TheThread;
implementation
{$R *.dfm}
// *************************************************
procedure TheThread.Execute;
begin
MainForm.Indicator.Animate := true;
end;
// *************************************************
procedure TMainForm.StartBtnClick(Sender: TObject);
begin
try
// Thread starten
Thread := TheThread.Create(True);
Thread.Resume;
// eine reine Beschäftigungsaufgabe für den Hauptthread
for I := 0
to 100
do
begin
MainForm.CounterLabel.Caption := I.tostring;
Sleep(500);
end;
// Feierabend
Thread.Terminate;
Thread.FreeOnTerminate := True;
MainForm.Indicator.Animate := false;
except
on E:
Exception do
begin
Thread.Terminate;
Thread.FreeOnTerminate := True;
MainForm.Indicator.Animate := false;
end;
end;
end.
Es soll also während des durchlaufens eine Schleife ein Indicator animiert werden und nach Durchlauf wieder deanmiert werden. Passieren tut beim Start des Programms nichts. Ein Indicator erscheint nicht. Das Label bleibt bei 0.
Ich hatte das bis hier so verstanden, das ich den Hauptthread starte - also das Formular wird angezeigt, dann schmeisse ich per StartBtn einen weiteren Thread an, der den Animator anzeigt und diese Schleife durchläuft. Ist die durch ist Ende.
Tja, natürlich habe ich auch die Sychronize Sache gesehen, aber was soll ich hier sychronisieren?
Was mache ich falsch?
creehawk
Zitat
Baum-Darstellung
