Hej allesammen!
Jeg har prøvet at lave noget AutoProposal (eller hvad det hedder). Dog kan jeg ikke helt få det til at virke. Jeg bruger en edit og listbox. Når man skriver noget i edit'en skulle den gerne finde det første item som starter med det man skrev i edit'en. Fx hvis nu jeg har listen
width
height
alt
og jeg så skriver he, så markerer den height.
Håber i forstår
Her er så min kode som ikke virker:
procedure TForm1.Edit1Change(Sender: TObject);
var
countitems, countchar, i: integer;
firstchars: string;
loop: boolean;
begin
countchar := Length(Edit1.Text);
countitems := ListBox1.Items.Count;
loop := true;
i := 0;
while loop = true
do
firstchars := Copy(ListBox1.Items.Strings[i], 1, countchar);
if firstchars = Edit1.Text then
begin
ListBox1.ItemIndex := i;
loop := false;
end;
i := i+1;
if i = countitems then
loop := false;
end;
Hilsen Mark
PS. Jeg har ikke flere point, så i må undskylde jeg ikke giver mere.