51 (edited by k245 2020-07-05 09:46:01)

Re: Вопросы от неразбирающегося

Vyvern wrote:

Здравствуйте! Как "одним махом" очистить несколько комбобоксов?
Вариант типа
Form1.ComboBox1.Clear;
Form1.ComboBox2.Clear;
Form1.ComboBox3.Clear;
Form1.ComboBox4.Clear;
Form1.ComboBox5.Clear;
как-то не комильфо.


Способ ниже не работает.
for i:=1 to 5 do begin
     cb:=TComboBox(Form1.FindComponent('ComboBox'+IntToStr(i)));
     cb.Clear; \\выделяет красным строку (при этом в var указано cb: TComboBox;)
end;
Где тут ошибка? Подобное вообще работает в MVD?

Ошибка в объявлении переменной cb: используйте класс  TdbComboBox:

Визуальное программирование: блог и телеграм-канал.

52 (edited by adiziktdy 2020-07-06 06:47:06)

Re: Вопросы от неразбирающегося

k245 wrote:

Ошибка в объявлении переменной cb: используйте класс  TdbComboBox:

Спасибо! Так работает smile

PS.
Если комбобоксы заполнены командой dbSQLExecute, то содержимое стирается полностью. Я думаю, чтобы сбросить значения, достаточно присвоить им -1

     cb.dbItemID:=-1

Проверено wink

Yana

Re: Вопросы от неразбирающегося

k245 wrote:

Ошибка в объявлении переменной cb: используйте класс  TdbComboBox:

Вот оно! Огромное спасибо!

54 (edited by Vyvern 2021-03-13 14:23:22)

Re: Вопросы от неразбирающегося

Всем здравия!
Не получается инактивировать кнопку, у которой прописана функция (на OnClick). Выдает ошибку "Array type required" в строке
Form1.Button1.Enabled:=false;
При этом с кнопками без функций такой проблемы нет. Версия программы 6.5. Таблиц в этой формуле нет.

Re: Вопросы от неразбирающегося

Подскажите есть ли возможность в TableGrid нажимая на стрелки вниз и вверх при выделении строки происходило нажатие на нее?
У меня есть Таблица  и рядом фото  хотелось бы чтоб стрелками при переходе на другую строку фото менялись в зависимости от выбраной яйчейки
Спасибо

Re: Вопросы от неразбирающегося

senseyesenseye1983 wrote:

Подскажите есть ли возможность в TableGrid нажимая на стрелки вниз и вверх при выделении строки происходило нажатие на нее?
У меня есть Таблица  и рядом фото  хотелось бы чтоб стрелками при переходе на другую строку фото менялись в зависимости от выбраной яйчейки
Спасибо

Post's attachments

Attachment icon test.rar 3.42 kb, 207 downloads since 2021-04-01 

Re: Вопросы от неразбирающегося

Добрый день подскажите новичку пожалуйста:
1. на Форме zayava есть ComboBox куда записываеться Ответственный за исполнение
   
 
   В итоге при поиске в TableGrid яйчейка которая показывает Ответственного в зависимости от какого именно ответственного окрашивалась в определенные цвета:
  Например если Иванова - красный, если Петрова то зеленый, Если Сидорова то в желтый!
   Я вот на одном месте не могу понять как реализовать даную схему:
   Помогите пожалуйста со скриптом
2. Запрет запуска второго окна
   const
  APP_NAME = 'My App Name';

procedure Form1_OnShow (Sender: string; Action: string);
begin
  if FindWindow(nil, APP_NAME) <> 0 then
  begin
      ShowMessage('Application is already launched.');
      Form1.Close;
  end;
  Form1.Caption := APP_NAME;
end;
Почему то при запуске приложение выдает сообщение Application is already launched. Хотя ни одного окна не открыто еще!!!

Re: Вопросы от неразбирающегося

senseyesenseye1983 wrote:

Запрет запуска второго окна

Вы точно используете имя Вашей программы?
бывает такое, что имя Вашей программы может совпадать с именем уже имеющегося процесса

Re: Вопросы от неразбирающегося

sibprogsistem wrote:
senseyesenseye1983 wrote:

Запрет запуска второго окна

Вы точно используете имя Вашей программы?
бывает такое, что имя Вашей программы может совпадать с именем уже имеющегося процесса

Прям 100% уже проверял на обычной букве W smile
Выдает мол уже окно запущенно хотя ни одного окна не открыто

Re: Вопросы от неразбирающегося

sibprogsistem wrote:
senseyesenseye1983 wrote:

Подскажите есть ли возможность в TableGrid нажимая на стрелки вниз и вверх при выделении строки происходило нажатие на нее?
У меня есть Таблица  и рядом фото  хотелось бы чтоб стрелками при переходе на другую строку фото менялись в зависимости от выбраной яйчейки
Спасибо

Спасибо оргомное помогло

Re: Вопросы от неразбирающегося

senseyesenseye1983 wrote:

Прям 100% уже проверял на обычной букве W smile
Выдает мол уже окно запущенно хотя ни одного окна не открыто

я лишь могу сказать. что у меня все работает
скрипт рабочий, что-то у Вас не так

Re: Вопросы от неразбирающегося

senseyesenseye1983 wrote:

Добрый день подскажите новичку пожалуйста:
1. на Форме zayava есть ComboBox куда записываеться Ответственный за исполнение
   
 
   В итоге при поиске в TableGrid яйчейка которая показывает Ответственного в зависимости от какого именно ответственного окрашивалась в определенные цвета:
  Например если Иванова - красный, если Петрова то зеленый, Если Сидорова то в желтый!
   Я вот на одном месте не могу понять как реализовать даную схему:
   Помогите пожалуйста со скриптом
2. Запрет запуска второго окна
   const
  APP_NAME = 'My App Name';

procedure Form1_OnShow (Sender: string; Action: string);
begin
  if FindWindow(nil, APP_NAME) <> 0 then
  begin
      ShowMessage('Application is already launched.');
      Form1.Close;
  end;
  Form1.Caption := APP_NAME;
end;
Почему то при запуске приложение выдает сообщение Application is already launched. Хотя ни одного окна не открыто еще!!!

Ну кроме как этого у меня ничего нет открыл в новом проете и то же самое

Re: Вопросы от неразбирающегося

senseyesenseye1983 wrote:
senseyesenseye1983 wrote:

Добрый день подскажите новичку пожалуйста:
1. на Форме zayava есть ComboBox куда записываеться Ответственный за исполнение
   
 
   В итоге при поиске в TableGrid яйчейка которая показывает Ответственного в зависимости от какого именно ответственного окрашивалась в определенные цвета:
  Например если Иванова - красный, если Петрова то зеленый, Если Сидорова то в желтый!
   Я вот на одном месте не могу понять как реализовать даную схему:
   Помогите пожалуйста со скриптом
2. Запрет запуска второго окна
   const
  APP_NAME = 'My App Name';

procedure Form1_OnShow (Sender: string; Action: string);
begin
  if FindWindow(nil, APP_NAME) <> 0 then
  begin
      ShowMessage('Application is already launched.');
      Form1.Close;
  end;
  Form1.Caption := APP_NAME;
end;
Почему то при запуске приложение выдает сообщение Application is already launched. Хотя ни одного окна не открыто еще!!!

Ну кроме как этого у меня ничего нет открыл в новом проете и то же самое

Нашел свою ошибку все работает !

Re: Вопросы от неразбирающегося

Всем привет. А подскажите есть ли возможность в программе сделать чтобы логи велись конкретно по изменениям:
например есть столбцы Имя Фамилия Дата рождения телефон в окне логов. Если изменить телефон то в логах у меня появляется запись изменена но непонятно что изменено... Есть ли возможность сделать так чтоб если изменили телефон то высвечивается изменен телефон может подкрашивается цветом ??? Помогите пожалуйста

Re: Вопросы от неразбирающегося

Здравствуйте!
Можно ли кратко задать переменную типа
сtext1:=Form1.ComboBox1.Text='text1'
сtext2:=Form1.ComboBox1.Text='text2'
и т.д., чтобы не прописывать подобные конструкции каждый раз при проверках?
Или хотя бы общую - сtext:=Form1.ComboBox1.Text?

Re: Вопросы от неразбирающегося

senseyesenseye1983 wrote:

Всем привет. А подскажите есть ли возможность в программе сделать чтобы логи велись конкретно по изменениям:
например есть столбцы Имя Фамилия Дата рождения телефон в окне логов. Если изменить телефон то в логах у меня появляется запись изменена но непонятно что изменено... Есть ли возможность сделать так чтоб если изменили телефон то высвечивается изменен телефон может подкрашивается цветом ??? Помогите пожалуйста

Если записи лога отражаются в хронологическом порядке, то можно сделать обработку для грида на событие onChange, в которой сравнивать текущую строку с предыдущей и, если есть отличия, то менять цвет фона у ячейки.

Визуальное программирование: блог и телеграм-канал.