Elohim Panggalo
asked on
set tab in page control to active in delphi
i have 1 combobox which have three item (item1, item2, item3) and 1 pagecontrol with 3 tab (tab1, tab2, tab3) how to make if combobox item is "item1" than "tab1" in pagecontrol become active?
this is my code which isnt working -_-
procedure Tdasses.FormCreate(Sender: TObject);
var cbox:tcombobox;
begin
if cbox.text = 'item1' then
begin
tabsheet1.Action;
end
else if CBox.text = 'item2 then
begin
tabsheet2.Action;
end
else if ComboBox1.text = 'item3' then
begin
tabsheet3.Action;
end
this is my code which isnt working -_-
procedure Tdasses.FormCreate(Sender:
var cbox:tcombobox;
begin
if cbox.text = 'item1' then
begin
tabsheet1.Action;
end
else if CBox.text = 'item2 then
begin
tabsheet2.Action;
end
else if ComboBox1.text = 'item3' then
begin
tabsheet3.Action;
end
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER