Komponente erstellen || Ereignis überschreiben/löschen

[Alter Mann]

Hi,

auch wenn ich den eigenen(deinen) Gedankengang damit Zerstöre, könnte
die Lösung so aus sehen:

Delphi-Quellcode:

unit uScktComp;

interface

uses
  Windows, Classes, ScktComp;

type
  TMyClientSoket = class(TClientSocket)
  private
    FConnect : Boolean;
    procedure SetConnect(Value : Boolean);
  public
    constructor Create(aOwner : TComponent); override;
    property Connect : Boolean read FConnect write SetConnect;
  end;

implementation

constructor TMyClientSoket.Create(aOwner : TComponent);
begin
  inherited Create(aOwner);
  FConnect := false;
end;

procedure   TMyClientSoket.SetConnect(Value : Boolean);
var
  ErrInt : Integer;
begin
  if ((Host = '') or (Port = -1)) and Assigned(OnError) then
  begin
    ErrInt := 12345;
    Error(Socket, eeGeneral, ErrInt);
    Active := true;
  end
  else
  Active := true;
end;

Da ich aber nichts mit Client/Server.Socket programmiere = ungetestet!!!

Das einfügen einer neuen Eigenschat Connect ist einfacher als 'alles'
neu zu schreiben und auch sicherer!

Letzeres greift nur, wenn es garnicht anders geht( da man für alles selber Verantwortlich ist!!!).

Viele Grüße