Search options (Page 46 of 60)

      MenuGrid.Row[tmpRow].Visible := false;

      MenuGrid.RowVisible(tmpRow) := false;

procedure Form1_Panel1_OnClick (Sender: TObject);
begin
  Form1.Panel1.height := 30;
  Form1.Panel2.height := 30;
  Form1.Panel3.height := 30;
  TdbPanel(Sender).height := 200;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.Panel1.align := alTop;
  Form1.Panel2.align := alTop;
  Form1.Panel3.align := alTop;
  Form1.Panel1.height := 30;
  Form1.Panel2.height := 30;
  Form1.Panel3.height := 30;
end;

// отобразить форму на панели
procedure ShowFormOnPanel(AForm:TAForm; APanel:TdbPanel);
var
  tmpGrid: TdbStringGridEx;
  tmpButton: TdbButton;
begin
  // отстёгиваем предыдущую форму от панели
  if ActiveForm <> nil then
  begin
    // если вызвали отображение текущей активной формы - ничего не делать
    if ActiveForm = AForm then
      exit;
    // спрятать текущую активную форму и отстегнуть её от панели
    ActiveForm.Visible := false;
    ActiveForm.Parent := nil;
    SetParent( ActiveForm.Handle, nil);
  end;
  if AForm.Visible then
  begin
    ShowMessage(S_ERR_SHOW_ON_PANEL);
  end
  else
  begin
    // подготавливаем форму
    AForm.borderStyle := bsNone;
    AForm.Align := alClient;
    // накидываем её на панель
    AForm.Parent := APanel;
    SetParent( AForm.Handle, APanel.Handle);
    AForm.visible := true;
    ActiveForm := AForm;
    // автоматизация
    // 1. нажатие кнопки для обновления табличных данных
    tmpButton := TdbButton(AForm.FindComponent('btnSearch'));
    if tmpButton<>nil then
    begin
      tmpButton.Click;
    end
    else
    begin
      // 2. обновление табличных данных, если кнопки нет
      tmpGrid := TdbStringGridEx(AForm.FindComponent('tgrMain'));
      if tmpGrid<>nil then
      begin
        tmpGrid.dbUpdate;
      end;
    end;
    UpdateMainFormCaption();
  end;
end;

      // вызываем автозаполение ComboBox-ов, но по отдельности для каждой таблицы
      tmpFileName := ExtractFileDir(ParamStr(0))+'\tables.ini';
      tmpTablesIni := TMemIniFile.Create( tmpFileName ); // для работы с этим файлом использовать TMemIniFile - он нормально работает с Unicode
      tmpList := TStringList.Create;
      try
        tmpTablesIni.ReadSections( tmpList );
        for i := 0 to tmpList.Count - 1 do
        begin
          ConnectionProgress( i/tmpList.Count, tmpList.Strings[i] ); // отобразить название таблицы
          Application.ProcessMessages;
          Sleep(100); // задержка, чтобы видно было ))
          UpdateDatabase(tmpList.Strings[i]);
        end;
      finally
        tmpList.Free;
        tmpTablesIni.Free;
        ConnectionProgress(-1,' ');
        // звуковое подтверждение окончания загрузки
        tmpSoundFileName := copy(ParamStr(0),1,length(ParamStr(0))-4)+'.wav';
        // можно ставить любой файл, а если надоест, то удалить его совсем
        if FileExists(tmpSoundFileName) then
          PlaySound( tmpSoundFileName );
      end;

 if (TLabel) then

procedure MouseDown(Sender: Tobject);
begin
    ShowMessage(TLabel(sender).Caption);
end;

procedure MouseDown(Sender: Tobject);
var
  LPanel: TPanel;
begin
  LPanel := nil;
  if sender is TLabel then
  begin
    if TLabel(sender).Parent is TPanel then
      LPanel := TPanel(TLabel(sender).Parent);
      if  LPanel <> nil  then
      begin
        ShowMessage(TLabel(sender).Caption);
      end;
  end;
end;

const
  DATA_COL = 1;
...
frmMain.tgrData.Cells[ DATA_COL, y ]

procedure frmMain_TableGrid1_OnChange (Sender: TObject);
begin
  frmMain.TableGrid1.Columns[0].Header.Color := clRed;
end;