Topic: Подскажите со скриптом...
Доброго времени суток!
Есть скрипт...он РАБОЧИЙ...
procedure Form2_Button8_OnClick (Sender: string; var Cancel: boolean);
var
sFields, sValues: string;
begin
sFields := 'tickets;dateone;id_Centre';
sValues := Form2.Edit4.sqlValue+';'+Form2.DateTimePicker5.sqlDate+';'+Form2.ComboBox1.sqlValue;
if CheckDublicates(Form2.dbAction, 'base', sFields, sValues, Form2.Button8.dbGeneralTableId) then
begin
if MessageDlg('Мое сообщение', mtInformation, mbYes+mbNo, 0) = mrYes
then
begin
Form2.Button9.Click; //Button9=удалить запись
Form2.Button10.Click; //очищает данные в Editах...
Form2.CheckBox7.Checked := False; //.панель статистики НЕ ВИДИМА!
Cancel := True;
end else
begin
Form2.CheckBox7.Checked := True;
Cancel := True;
end;
end;
end;
Вопрос: куда вписать новое действие, если "Мое сообщение" С Да и Нет не появилось
К примеру: Form2.Button1.Click;
С Уважением Благодарностью Роман!!!