thebig1825
Новичок
I want to add command line switches to items from this combobox:
NewComboBox1 := TNewComboBox.Create(WizardForm);
with NewComboBox1 do begin
Parent := Component.Surface;
Left := ScaleX(5);
Top := ScaleY(180);
Width := ScaleX(170);
Height := ScaleY(21);
Style := csDropDownList;
Items.Add('Item1');
Items.Add('Item2');
function myitem1: Boolean;
begin
Result: = NewComboBox1.ItemIndex = 0
end;
function myitem2: Boolean;
begin
Result: = NewComboBox1.ItemIndex = 1
end;
with NewComboBox1 do begin
Parent := Component.Surface;
Left := ScaleX(5);
Top := ScaleY(180);
Width := ScaleX(170);
Height := ScaleY(21);
Style := csDropDownList;
Items.Add('Item1');
Items.Add('Item2');
function myitem1: Boolean;
begin
Result: = NewComboBox1.ItemIndex = 0
end;
function myitem2: Boolean;
begin
Result: = NewComboBox1.ItemIndex = 1
end;
Последнее редактирование: