Hallo ich habe folgendes Problem, und ich weiss nicht wie ich es lösen soll:
Ich habe eine Anwendung die mehrere Tabsheets beinhaltet, diese sind ohne Passwort ersteinmal
disabled. Dazu habe ich ein Label 'Gesperrt' auf dem Tabsheet liegen.
Also folgender Fall:
die Tabsheets werden freigegeben und die Labels werden ausgeblendet. Genau da tritt eine
Exception auf...
folgender Quellcode:
Delphi-Quellcode:
(*******************************************************************************
Wechsel vom Worker in den ReadOnly Mode und umgekehrt
--> shouldLock = true
--> ReadOnly aktiv
--> shouldLock = false
--> Worker aktiv
*******************************************************************************)
procedure TfrmMain.LockTabs(shouldLock: Boolean);
// Sperrt oder Entsperrt den Zugriff auf die Tabs
begin
try
tabGeraeteDaten.Enabled := NOT(shouldLock);
tabKalibrierung.Enabled := NOT(shouldLock);
tabAnalogAusgang.Enabled := NOT(shouldLock);
tabExcel.Enabled := NOT(shouldLock);
tabSonstiges.Enabled := NOT(shouldLock);
lblGesperrt1.Visible := shouldLock;
lblGesperrt2.Visible := shouldLock;
lblGesperrt3.Visible := shouldLock;
lblGesperrt5.Visible := shouldLock;
lblGesperrt7.Visible := shouldLock;
if tabDatalogging.Visible then
begin
lblGesperrt6.Visible := shouldLock;
end;
except
ShowMessage('Fehler beim Freischalten der Anwendung');
end;
end; // of procedure TFrmMain.LockTabs(shouldLock: Boolean);
////////////////////////////////////////////////////////////////////////////////
Ich habe einen Backgroundtask am Laufen, der Daten von der Schnittstelle holt und diese auch selbst über Synchronize an die Labels der Tabsheets weitergibt, könnte dort das Problem liegen?
EDIT1: Tritt aber auch ohne Backgroundtask auf (
Exception im Anhang)
Irgendwie weiß ich nicht wo genau dort das Problem liegt??
Danke schonmal
Gruß
DelphiManiac