Rulle med combobox

Hvis indholdet ikke må ændres af brugeren hvorfor så ikke bruge noget andet, f.eks. en TEdit eller en TLable

Sæt readonly=true eller enabled=false.

kroning, fordi indholdet bliver sat ind af programmet, og alle ændringer kontrolleres inden de bliver sat ind. Jeg vil ikke have at brugerne selv kan rette i indholdet, de skal kun kunne vælge fra listen og de må heller ikke kunne rulle med indholdet, fordi det bliver registreret hvad det har været vist i comboboxen.

tolderlund, readonly findet ikke, og enabled := false gør at man ikke kan vælge noget fra listen.

sæt din combobox til csOwnerDrawFixed

og

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
combobox1.ItemIndex := det index du nu vil ahve det skal være (integer) ;

 

end;

Stoney

Det er rigtig at du skal sætte Style men du behøver ikke lave den OwnerDraw med mindre du selv vil "Tegne den", der er to mode's det ene er det den har default som ikke checker om det indtastede står i listen, det andet gør, kan desværre ikke lige huske hvad det hedder, med du kan vælge det DesignTime, og så er dit problem løst :)

stoney og martinlind

Jeg takker mange gange for svaret!

Men, csOwnerDrawFixed bevirker at combobox1.text (som bruges til en startværdi) ikke kommer frem når Style sættes lig csOwnerDrawFixed.
Når programmet tilføjer et nyt item, kommer det godt nok med i listen, men vises ikke i combobox1.text selvom det det er skrevet i programmet. Altså combobox1.text := navn; kan nu ikke bruges.

Ellers virker det og jeg takker, men kan i klare den sidste nød?

Mange hilsener
lsc

Hvad med at ændre style til simple og så bruge OnKeyPressed til at neutralisere uønskede tastetryk i komponenten (<> <tab>)?

Brug nu index til at sætte din værdi i comboboxen

Nedenstående er testet og virker

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  defaultvalue : integer;
  comboboxitems : Tstringlist;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
combobox1.ItemIndex := defaultvalue; ;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Clear;
comboboxitems := Tstringlist.Create;
comboboxitems.Add('Tekst 1');
comboboxitems.Add('Tekst 2');
comboboxitems.Add('Tekst 3');
comboboxitems.Add('Tekst 4');


combobox1.Items.AddStrings(comboboxitems);

// her sættes combobox teksten 'Tekst 2'

defaultvalue := comboboxitems.IndexOf('Tekst 2');

combobox1.ItemIndex := defaultvalue;




end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comboboxitems.Free;
end;

end.

Stoney

Stoney: Nu kan det være mig der ikke fanger guldkornene, men hvad er det du demonstrerer? Du laver en liste, sætter nogle ting ind i den, kopierer det hele til comboboksens liste hvor du sætter ItemIndex vha. en IndexOf. Listen bruger du ikke mere. Hvorfor ikke sætte data ind i Combo'en direkte?

combobox1.Clear;
combobox1.Items.Add('Tekst 1');
combobox1.ItemIndeex := combobox1.Items.Add('Tekst 2');
combobox1.Items.Add('Tekst 3');
combobox1.Items.Add('Tekst 4');

isc: Hvis du satte Style til simple vil komponenten ligner en TEdit men kan scrolle mellem værdierne vha. ItemIndex. Den kan desværre ikke sættes readonly, men der må du "æde" tastetryk vha. OnKeyPressed

Fordi jeg gik ud fra han har sine items i stringlist i forvejen og ville lave et eksempel.

Men ellers ville jeg add dem direkte i comboboxen.

Stoney