TImage friert ein, ich bin am verzweifeln

[alf.stefan]

@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?