Danke, und wie müsste ich diese dann aufrufen???
würde es so passen:
Delphi-Quellcode:
helpDelegate := &Self.safeUpdate;
changeLEDState(m_MainForm.LEDLaserConnected,false,helpDelegate);
...
procedure TLaserStateWatcherThread.changeLEDState(led: TNWLed; value: boolean;helpDelegate:updateDelegate);
var args : ArrayList;
begin
args := ArrayList.Create();
args.Clear;
args.Add(led);
args.Add(TObject(value));
led.Invoke(System.Delegate(@helpDelegate),args.ToArray);
end;
???
danke