Topic: ToolBar
Добрый день, DriveSoft!
В примере разобралась, но остались вопросы. К сожалению со скриптами в принципе не знакома.
1.
procedure ToolButton1OnClick (Sender: TObject);
begin // событие происходит при нажатии на кнопку ToolButton1
frmKalendAdd.ShowModal;
end;
procedure ToolButton2OnClick (Sender: TObject);
begin // событие происходит при нажатии на кнопку ToolButton1
frmPlan.ShowModal;
end;
procedure ToolButton3OnClick (Sender: TObject);
begin // событие происходит при нажатии на кнопку ToolButton1
frmAdresBook.ShowModal;
end;
procedure ToolButton4OnClick (Sender: TObject);
begin // событие происходит при нажатии на кнопку ToolButton1
frmKatal.ShowModal;
end;
procedure ToolButton5OnClick (Sender: TObject);
begin // событие происходит при нажатии на кнопку ToolButton1
frmStat.ShowModal;
end;Можно эту часть скрипта сделать менее громоздкой, лаконичной?
2. Как скрипт прописать не только для одной формы, а для нескольких?
Спасибо.
TestToolbar2.zip