Hallo marabu,
ich habe den Code wie folgt geändert:
Delphi-Quellcode:
procedure TTradeManager.ApplicationEvents1Activate(Sender: TObject);
var hOE: hWnd; Running: Boolean;
begin
Running := false;
if Running = false then
begin
hOE:=FindWindow(nil,'Trader Workstation'); // Finde das Fenster
SetForegroundWindow(hOE); // Bringe es in den Vordergrund
SendMessage(hoe,WM_KEYDOWN,VK_RETURN,0); // drücke ENTER
SendMessage(hoe,WM_KEYUP,VK_RETURN,0);
Running := true;
end;
end;
procedure TTradeManager.FormCreate(Sender: TObject);
begin
iabsocket1.Connected := true;
ApplicationEvents1Activate(Sender);
end;
procedure TTradeManager.Button1Click(Sender: TObject);
begin
AuswFutChange.ItemIndex;
AuswFutChange.OnChange(AuswFutChange.Items);
end;
Dabei scheint es zu funktionieren und manchmal, bei mehrmaligem Ausführen und Wiederschließens dann nicht mehr. Habe ich Deinen Wortlaut richtig interpretiert? Die Combobox AusFutChange soll auch ohne auf Button1 zu drücken ausgeführt werden. Wo müßte ich diese zwei Zeilen unterbringen? Vielen Dank!