Search options (Page 3 of 10)

Здравствуйте.

Скачайте пожалуйста последнюю бета версию 3.6
https://www.dropbox.com/s/4rfukqr2r1awq … b.zip?dl=0

Пример:

procedure frmNumber_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    CloseForms(frmAbonent);
end;

procedure CloseForms(exceptForm: TForm);
var
    i,c: integer;
begin
    c := Screen.FormCount-1;
    for i := c downto 0 do
    begin
        if (Screen.Forms[i] is TAForm) and
           (Screen.Forms[i] <> exceptForm) and
           (Screen.Forms[i].ClassName <>'TfrmMaindbCore') then Screen.Forms[i].Close;
    end;
end;

процедура CloseForms закроет все формы кроме той, которая указана в параметрах, также главная форма также не будет закрыта.

Пожалуйста прикладывайте проект с данными изменениями.

Index - служебное слово и в данном контексте его надо писать в косых кавычках - `index`. Но лучше избегать использования ключевых слов в названиях таблиц или полей.

на форме Заказы, под панелькой у вас еще одна панель Panel11, уже на которой в свою очередь расположена Panel2.
Таким образом она невидима и соотвественно не будет работать, т.к. на нее невозможно кликнуть, но имено она используется в скрипте.

Просто сделайте так как я показал в примере для всех панелек.

Пожалуйста, прикладывайте проект с данными измененями, и с пошаговым описанием действий, приводящих к ошибке. К сожалению мне трудно ориентироваться в незнакомом проекте.

procedure frmAppearance_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
  if frmAppearance.CheckBox1.Checked=True then
  begin
    if frmApplication.textAppearance.Lines.IndexOf(frmAppearance.TableGrid1.Cells[0, ARow] + ', ') = -1 then
        frmApplication.textAppearance.Lines.Add(frmAppearance.TableGrid1.Cells[0, ARow] + ', ' ) else ShowMessage('Дубликат');
 end;
   frmAppearance.Close;
end;

procedure frmAppearance_Button7_OnClick (Sender: string; var Cancel: boolean);
var
   i,c: integer;
   iColumn: integer;
begin
    iColumn := frmAppearance.TableGrid1.Columns.Count-2;
    c := frmAppearance.TableGrid1.RowCount - 1;
    for i :=0 to c do
    if (frmAppearance.CheckBox1.Checked=True) and (frmAppearance.TableGrid1.Selected[i]) then
    begin
        if frmApplication.textAppearance.Lines.IndexOf(frmAppearance.TableGrid1.Cells[iColumn, i] + ', ') = -1 then
            frmApplication.textAppearance.Lines.Add(frmAppearance.TableGrid1.Cells[iColumn, i] + ', ') else ShowMessage('Дубликат');
    end;
   frmAppearance.Close;
end;

Возможно вы не поняли скрипт, в примере Form1.Panel2 вы должны заменить это на имя панели используемую в вашем проекте.

т.е. данная части скрипта означает, что в параметре Sender содержится ссылка на объект Panel, от которой пришло событие, т.е. по которой кликнули, поэтому в условии проверяем, если кликнули на определенную панель, то выполняем определенное действие

if Sender is Form1.Panel2 Then 
   begin
      frmOrder.cdRepStatus.Caption:='Принят';
      frmOrder.bSearch.Click;
   end;

Приложите пожалуйста проект с данным скриптом и опишите, что именно не работает.

попробуйте так

procedure PanelOnClick (Sender: TObject);
var
    panel: TdbPanel;
begin
    panel := TdbPanel(Sender);

    if panel.Color <> colorActive then
    begin
        panel.Color := colorActive;
        SavePanelStatus(panel, True);
    end else
    begin
        panel.Color := panel.Tag;
        SavePanelStatus(panel, False);
    end;

   if Sender is Form1.Panel2 Then
   begin
      frmOrder.cdRepStatus.Caption:='Принят';
      frmOrder.bSearch.Click;
   end;

   if Sender is Form1.Panel3 Then
   begin
      frmOrder.GridOrder.dbFilter := '(repairstatus <> "Принят")';
      frmOrder.GridOrder.dbUpdate;
   end;

end;