Hi, nu hab ich auch mal wieder ein kleines Problemchen...
...Ich habe ein kleines Programm erstellt (na so was
) mit einer Listbox in der ich eine History, äh Verlauf eingebaut habe:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
if ComboBox1.Text <> '' then
begin
RunConsoleApp(ComboBox1.Text, Memo1.Lines);
// Historie
if ComboBox1.Text <> ComboBox1.Items[0] then
begin
ComboBox1.Items.Insert(0, ComboBox1.Text);
if ComboBox1.Items.Count > 5 then
ComboBox1.Items.Delete(ComboBox1.Items.Count-1);
end;
end;
end;
...das funktioniert soweit ganz gut, aber wenn ich den letzten Eintrag aus der Liste aufrufe dann verschwindet in der Eingabezeile mein Text nachdem ich den "Start" Button gedrückt habe.
Ich finde das Problem nicht, kann es jemand finden ?