Hallo,
vllt. eine vllt etwas dumme Frage aber warum funktioniert dieses nicht im nur lesen Modus?
Delphi-Quellcode:
type
TUserStatus = procedure(Sender: TObject; Const ConnectedClients, ConnectedUsers: Integer) of Object;
type
TServerPA = Class(TWinControl)
private
FUserStatus: TUserStatus;
public
constructor Create(AOwner: TComponent; Log: TStrings = Nil; DebugMode: TDebugmode = dmFull);
destructor Destroy();
procedure Open;
procedure Close;
function Active: Boolean;
property OnUserStatus: TUserStatus read FUserstatus;// write FUserStatus;
end;
[...]
// Übergabe der verbundenen Clients und der angemeldeten Benutzer
if Assigned(FUserstatus) then
FUserstatus(Self, FActiveConnections, Users.Count);
Auf meiner Main Form.
Delphi-Quellcode:
procedure GetUserstatus(Sender: TObject; const ConnectedClients, ConnectesUsers: Integer);
[...]
ServerPA := TServerPA.Create(Self, Memo1.Lines);
ServerPA.OnUserStatus := GetUserStatus;
Als Fehlermeldung erhalte ich dann:
Zitat:
Cannot assign to a read-only property
Sobald ich das write wieder einfüge, geht es.
Weiß da jemand eine Lösung? Es soll ja nur eine Leseeigenschaft sein.