Hallo
Delphi Star,
sorry hatte deinen Text nicht vollständig gelesen. Da du die Komponente aus der Komponentenleiste nimmst, wird wohl immer noch der alte Code benutzt. Kopiere einfach die geänderte
Unit X10_TLB in dein Projektverzeichnis und füge sie zum Projekt hinzu. Dann erstellst du die Komponente einfach selber...
Delphi-Quellcode:
interface
uses
... X10_TLB ...
:
private
{ Private-Deklarationen }
FX10Interface: TX10Interface;
:
procedure TForm.FormCreate(Sender: TObject);
begin
FX10Interface:=TX10Interface.Create(Self);
FX10Interface.Parent:=Self;
FX10Interface.OnX10Command:=FX10Interface1X10Command;
end;
procedure TForm.FormDestroy(Sender: TObject);
begin
FX10Interface.Free;
end;
procedure TForm.FX10Interface1X10Command(ASender: TObject;
const bszCommand: WideString; eCommand: TOleEnum; lAddress: Integer;
EKeyState: TOleEnum; lSequence: Integer; eCommandType: TOleEnum;
varTimestamp: TDateTime);
begin
...
end;
Gruss
Thorsten