Einzelnen Beitrag anzeigen

mlspider

Registriert seit: 22. Okt 2003
Ort: Berlin
661 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Items einer Listbox an einer Combobox übergeben???

  Alt 16. Mär 2005, 13:38
Das einzige Ereignis ist DropDown:

Delphi-Quellcode:
procedure TBrowser.ComboBox1DropDown(Sender: TObject);
var i:Integer;
begin
 with ComboBox1 do begin
  if Text = 'then
  begin
   Items.Delete(ix);
    ix:=-1
  end else begin
   for i := 0 to Items.Count-1 do
    if Text = Items[i] then Exit;

    Items.Add(Text)
  end
 end
end;
Mario
Handbücher haben einen hohen Heizwert!!!

http://geprellte-ebay-kaeufer.de
  Mit Zitat antworten Zitat