mittels Interbase-Event einen Wert an Delphi schicken

[hanspeter]

Zitat von mojo777:

hallo,
ich sitze heute auch an den events und irgendwie willes mir nicht gelingen die teile zum laufen zu bringen.


hab ich da irgendwo ein knick in der logik?

wäre für hilfe sehr dankbar .

Der Event muss vorher registriert werden.

Ich verwende die Steuerung in einem System, wo sich Clients auf unterschiedliche Server automatisch aufschalten sollen.

procedure TData.InitEvent(CbxKanal1: TComboBox);
var i : Integer;
begin
IB_Events.UnregisterEvents;
IB_Events.Events.Clear;

for i:= 0 to Host.count-1 do begin
if TArbeitsplatz(Host[i]).Arbeitsplatz = CBXKanal1.Text then
begin
EventName := TArbeitsplatz(Host[i]).EventName;
UserID := TArbeitsplatz(Host[i]).UID;
IB_Events.Events.Add(EventName);
end;
end;
IB_Events.RegisterEvents;
end;


Gruß Peter