Declaring:
Code:
var
ComboBox1 : TComboBox;
Script:
Code:
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 11;
ComboBox1.Top := 7;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 8;
ComboBox1.Text := 'ComboBox1';
Adding an item:
In the form information:
Code:
ComboBox1.Items.Add('Text of next..');
Finding:
To find the current text:
Code:
writeln(ComboBox1.text);
Boolean'ing:
Code:
if (ComboBox1.text = 'yes') then
Writeln('True!');
EXAMPLE:
Code:
var
frmDesign : TForm;
ComboBox1 : TComboBox;
procedure Say(Sender: TObject);
begin
Writeln('Just Chose: ' + ComboBox1.Text);
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 11;
ComboBox1.Top := 7;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 8;
ComboBox1.Text := 'ComboBox1';
ComboBox1.Items.Add('Item1');
ComboBox1.Items.Add('Item2');
ComboBox1.Items.Add('Item3');
ComboBox1.Items.Add('Item4');
ComboBox1.OnChange:= @Say;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.
Anymore questions, just ask