@Freddy2003 Habs probiert mit visible toggeln aber dann seh ich nur den Grauen Hintergrund des TForm.
Wie kann man eigentlich schauen wie stark ein Threat die App beansprucht?
Kann das eigentlich auch mit meiner ActionList zusammenhängen mit der ich die Steuerung umgesetzt habe.
im USb Threat rufe ich wenn das entsprechende Signal kommt TAction.Execute auf die dann im Hauptthreat abgearbeitet wird.
hauptthreat
Delphi-Quellcode:
type
TForm1 = class(TForm)
Image1: TImage;
actPic: TAction;
Delphi-Quellcode:
var
Form1: TForm1;
camServ : TCamServer;
ioThreat : TUsbIoThreat;
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Camserv := TCamserver.create(Form1);
CamServ.Image1 := nil;
CamServ.parentApp := Application;
CamServ.displayPanels[0] := nil;
CamServ.displayPanels[1] := nil;
CamServ.memo := Memo1;
if Camserv.disp1 <> nil then
begin
CamServ.disp1.Terminate;
CamServ.disp1.WaitFor;
CamServ.disp1.Free;
end;
ioThreat := TUsbIoThreat.Create(True);
ioThreat.usbOutPut :=0;
ioThreat.inputChangedAction := actIoChange;
ioThreat.usbSchrittkette := actChain;
ioThreat.usbCardAddress :=0;
ioThreat.usbStartAction:= usbStarted;
ioThreat.usbRun := true;
ioThreat.Resume;
und dazu im ioThreat
Delphi-Quellcode:
procedure TUsbIoThreat.Execute;
...
repeat
if signalZumWeitermachen then usbSchrittkette.Execute; // also wird hier actChain aufgerufen!
until terminated
wenn jemand das ganze Projekt haben will um mein Problem besser zu verstehen kann ich ihm das schicken.
actChain ist TAction aus einer Actionlist in Form1!!
Kommen da vielleicht die resourcen durcheinander so ähnlich wie man synchronize benutzen soll???
Also die Kernfrage für mich ist " Kann man mit TActionList bzw. den TAction(s) einen Threat steuern? oder spricht da was dagegen?