Topic: Hard Coded Combobox
The following script works with combo style Dropdown but combo style Dropdown List doesn't. "Showrecord" part fails, doesn't display the saved combo item.
procedure frmSaleInv_OnShow (Sender: TObject; Action: string);
begin
frmSaleInv.cbSIpaid.Clear;
frmSaleInv.cbSIpaid.Items.Add('Fully Paid');
frmSaleInv.cbSIpaid.Items.Add('Partially Paid');
frmSaleInv.cbSIpaid.Items.Add('Unpaid');
If frmSaleInv.dbAction = 'ShowRecord' then
Begin
frmSaleInv.cbSIpaid.Text := frmSaleInv.edSIpaidValue.Text;
End;
end;
procedure frmSaleInv_cbSIpaid_OnChange (Sender: TObject);
begin
frmSaleInv.edSIpaidValue.Text := frmSaleInv.cbSIpaid.Text;
end;
♦ How can I make the script above works fully for combo style Dropdown List?
♦ Alternatively, is it possible to make combo style Dropdown read only?
God... please help me become the person my dog thinks I am.