Progr.-ausführung durch Button1.Click o. Form1.OnCreate

[swbo]

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!