76 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2022-08-28 12:26:27)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: Нужна помощь...

senseyesenseye1983 wrote:

Я наверное уже всех так напрягаю, искренне извиняюсь за настырность, у меня есть небольшой вопрос по поводу эмуляции нажатия кнопки, а именно интересует как программно нажать на ПРОБЕЛ(SPACE)?

procedure SimulateKeyDown(Key: byte);
begin
keybd_event(Key, 0, 0, 0);
end;
Вот на ум что приходит но как тут это реализовать ? Может кто знает ?

где-то на форуме есть проект с вертуальной клавиатурой
буквально не давно была эта тема

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,675

Re: Нужна помощь...

Привет Senseyesenseye, Vladimir,
Надеюсь, я понял - вы хотите имитировать нажатие «пробела» щелчком мыши?
Простой способ во вложении. Просто нажмите в поле редактирования
С Уважением
Derek.
.
I hope I understand - you want to simulate pressing the 'spacebar' by clicking the mouse?
A simple way is in the attachment.  Just click in the edit field

Post's attachments

Attachment icon simulate keypress.zip 335.32 kb, 141 downloads since 2022-08-28 

  • Registered: 2021-03-04
  • Posts: 140

Re: Нужна помощь...

derek wrote:

Привет Senseyesenseye, Vladimir,
Надеюсь, я понял - вы хотите имитировать нажатие «пробела» щелчком мыши?
Простой способ во вложении. Просто нажмите в поле редактирования
С Уважением
Derek.
.
I hope I understand - you want to simulate pressing the 'spacebar' by clicking the mouse?
A simple way is in the attachment.  Just click in the edit field

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

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

Интересный вопрос для профессионалов: Подскажите можно разделить предложение которое уже записано в базу ? Например:


Ivanov Ivan Ivanovich - а базу записывается одной строчкой. (textbox сохраняет это в базу)

Нужно получить результат чтобы в FastReport отображалось вот так:

Ivanov
Ivan
Ivanovich

Это в настройках FastReport делается ? Если да подскажите где ?

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,675

Re: Нужна помощь...

Привет,
Если у вас есть такой сценарий, как имя, отчество и фамилия, гораздо проще хранить их как отдельные поля и при необходимости объединять в одно «полное имя», чем делать это наоборот.
(См вложение)
Derek.

Post's attachments

Attachment icon Status6.zip 1.1 mb, 110 downloads since 2023-05-12 

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

Derek благодарю за помощь

82 Reply by vovka3003 (edited by vovka3003 2023-05-13 09:20:08)

  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

Re: Нужна помощь...

malitos wrote:

Это в настройках FastReport делается ?

В фастрепорте можно написать скрипт и делать любую постобработку готовых данных из бд:

https://i.imgur.com/SyIGskx.png

Системы безопасности в Белгороде

vovka3003's Website

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

Интересная идея, я попробовал ругается на индекс почему то. Вова если тебя не затруднит можешь на Derek'a примере показать ?

84 Reply by sparrow (edited by sparrow 2023-05-13 17:41:13)

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 894

Re: Нужна помощь...

Можно без скрипта прямо в текстовом поле.
Отдельно для Фамилии Имени Отчества
В примере
Но нужно осторожно в использовании. Несколько пробелов между словами дадут совсем другой результат.
и желательно еще TRIM использовать.

Post's attachments

Attachment icon Status6-1.zip 1.09 mb, 104 downloads since 2023-05-13 

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

sparrow wrote:

Можно без скрипта прямо в текстовом поле.
Отдельно для Фамилии Имени Отчества
В примере
Но нужно осторожно в использовании. Несколько пробелов между словами дадут совсем другой результат.
и желательно еще TRIM использовать.

Идеально. Благодарю

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 894

Re: Нужна помощь...

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
var
  fio: array of string;                            
begin                                                                  
  fio := SplitString(<Report."a.name">,' ');
  CASE Length(fio) of
  1: begin
       FAM.Text := fio[0];
       IM.Text := '';
       OTCH.Text := '';           
     end;
  2: begin
       FAM.Text := fio[0];
       IM.Text := fio[1];
       OTCH.Text := '';           
     end;                              
  3: begin
       FAM.Text := fio[0];
       IM.Text := fio[1];
       OTCH.Text := fio[2];           
     end;
  end;                                                                  
end;

87 Reply by malitos (edited by malitos 2023-05-15 03:59:39)

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

Спасибо всем Вам! Очень помогли

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

А для закрытия окна предусмотрена возможность закрытия по нажатию клавиши Esc ? Или это скриптом ?

89 Reply by k245 (edited by k245 2023-06-15 07:19:38)

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,538

Re: Нужна помощь...

malitos wrote:

А для закрытия окна предусмотрена возможность закрытия по нажатию клавиши Esc ? Или это скриптом ?

На форме ставите кнопку, настраиваете её на закрытие формы, при этом устанавливается свойство Cancel = True. Теперь такую форму можно закрыть по нажатии клавиши Ecs

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=9584&amp;download=0

Post's attachments

Attachment icon Кнопка закрытия формы.png 16.77 kb, 27 downloads since 2023-06-15 

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

k245's Website

  • Registered: 2021-05-07
  • Posts: 45

Re: Нужна помощь...

Спасибки