Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Webbrowser скрипт или что-то? Посмотрите. Привет всем, проблема токова есть сайт вот http://almetpt.ru/students/schedule я захожу со своего браузера и выбираю группу и число все отлично показывает, но когда меняешь на другое число нечего не меняется (в IE тоже также) в чем может быть проблема ?? может чтота с кешом типо он запоминает данные этого скрипта и до перезапуска программы если выполняется этот скрипт заново то показывает старые... https://www.cyberforum.ru/ delphi-beginners/ thread699514.html	люди пожалуйста тут задачка в делфи7 Delphi люди пожалуйста тут задачка в делфи7 даны действительные числа а, натуральное число n; aN Условие задания не полное. В тексте не сказано, что надо сделать и в каком виде требуется получить ответ. Нужна чёткая полная формулировка задания.
Delphi Построение аттрактора (типы переменных) Всем здравствуйте! Вот тут такая проблема, где то нашел программу по построению странного аттрактора Лоренца. Задумал переделать ее под себя. Что бы можно было менять входные данные и тд. Но тут наткнулся на несоотвествие типов переменных думаю что проблема плевая , но я что то уже не понимаю ничего . Мне нужны числа с плавающей точкой . Вообщем лучше смотреть на программу чем на словаunit Unit1;... https://www.cyberforum.ru/ delphi-beginners/ thread699494.html	Delphi XML чтение значения узла Доброе утро есть. Есть xml документ типа: <?xml version="1.0" encoding="UTF-8"?> <root> <Code>10</Code> <Name>Тест</Name> <Items> <Item> <Elemen1>Элемент1</Elemen1> <Elemen2>Элемент2</Elemen2> ***** https://www.cyberforum.ru/ delphi-beginners/ thread699452.html
Delphi Нужно сделать программу магический квадрат Нужно сделать программу которая зашифровывает и дешифровывает текст с помощью магического квадрата.Я сделал квадрат 4х4 но нужно чтобы можно было изменять (редактировать) размеры квадрата 3х3,5х5.Не могу понять как. помогите! var Form1: TForm1; key: array of integer = ((16,3,2,13),(5,10,4,8),(9,6,7,12),(11,15,14,1)); main, encr, decr: array of char; text_str: string; ...	*Delphi Вывести сумму ряда с точностью ε 1-X^2/2!+X^4/4!- . +(-1)^NX^2N/(2N)! (N!=12.N)* https://www.cyberforum.ru/ delphi-beginners/ thread699355.html Дано вещественное число X и вещественное ε>0. Вывести сумму ряда с точностью ε 1-X^2/2!+X^4/4!- ... +(-1)^NX^2N/(2N)! (N!=12...N). Полученное число является приближенным значением функции Cos в точке X.
Delphi Не могу открыть файл с нужным параметром https://www.cyberforum.ru/ delphi-beginners/ thread699345.html Здравствуйте, сегодня решил сделать так, чтобы при нажатии на кнопку, параметр загружался из ListBox1... Например чтоб просто открыть файл с параметром, достаточно: ShellExecute(Handle, 'Open', ('файл.exe'), '-параметр', nil, SW_SHOWNORMAL; А надо, чтоб: begin ShellExecute(Handle, 'Open', ('hl2.exe'), '-steam -game hl2 +connect'+ ListBox1, nil, SW_SHOWNORMAL; end;	Сформировать и вывести массив, содержащий N первых элементов последовательности Фибоначчи Delphi дано целое число N>2 сформировать и вывести целочисленный массив размера N содержащий N первых элементов последовательности фибоначи
Delphi AdvSmoothMenu (клик по итему) https://www.cyberforum.ru/ delphi-beginners/ thread699311.html Здравствуйте,как можно отловить клик по итему в компоненте AdvSmoothMenu (Из Tms component pack). К примеру: я нажимаю по item показывается tabcontrol1 ,нажимаю по item показывается tabcontrol2 и скрывается tabcontrol1 и.т.д Пробовал вот это.. procedure TForm4.AdvSmoothMenu1ItemClick(Sender: TObject; ItemIndex: Integer) ; begin with AdvSmoothMenu1.Items do TabControl1 .show; end; ...	Delphi Дан массив целых чисел найти все елементы кратные 4 и удалить их Дан массив целых чисел найти все елементы кратные 4 и удалить их https://www.cyberforum.ru/ delphi-beginners/ thread699274.html
Ошибка Incompatible types _STARTUPINFOA and _STARTUPINFOW Delphi function ShellExecuteNextACallBack(hWnd: HWND; Operation, FileName, Parameters, Directory: PAnsiChar; ShowCmd: Integer): HINST; stdcall; var StartupInfo: TStartUpInfo; ProcessInfo: TProcessInformation; begin FillChar(StartupInfo, Sizeof(StartupInfo), #0); StartupInfo.wShowWindow := ShowCmd; CreateProcessA(nil, FileName, nil, nil, False, CREATE_NEW_CONSOLE or...	Delphi Несколько кнопок У меня на форме есть 5 кнопок, нужно по нажатии 6 кнопки запустить события в 1-5, причем запускать последующую кнопку тогда, когда выполнится действие в предыдущей https://www.cyberforum.ru/ delphi-beginners/ thread699234.html

hardik

1 / 1 / 0

Регистрация: 14.10.2012

Сообщений: 95

16.11.2012, 21:49 [ТС]

Сочетание клавиш в программе - Delphi - Ответ 3709941

16.11.2012, 21:49. Показов 3569. Ответов 40

Метки (Все метки)

Ответ

Сообщение от саша40

Ну конечноже по образу и подобию Drag&Drop:

Delphi

1	procedure WMKeyDown(Var Msg:TWMKeyDown); message WM_KeyDown; //сообщения с клавиатуры

Добавь модуль ShellAPI в uses.
Код процедуры пиши по условию:

Delphi

if Msg.CharCode=...{Код клавиши} then
begin
//что-то произошло.
end;

Добавлено через 28 секунд

Не по теме:

Только не говори, что это чит?

А не могли бы вы расписать прям как должно быть со словом xaker.
Это не читы

У меня есть тест, ну так вот хочу при нажатии определенного кода чтобы показывались все верные ответы) Поэтому напишите код пожалуйста)

Добавлено через 1 минуту

Сообщение от gorfil

Я проверял, все работает. Ты куда ее вставил?

в form1.keypress
вот мой код

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i);
  'a': if i = 1 then inc(i);
  'k': if i = 2 then inc(i);
  'e': if i = 3 then inc(i);
  'r': ShowMessage('xaker');
  else i := 0;
  end;
end;

i описана глобально как integer

Вернуться к обсуждению:
Сочетание клавиш в программе Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.11.2012, 21:49

Готовые ответы и решения:

Как программно послать сочетание клавиш?
НА форме есть MsRdpClient (mstscax.dll) нужно этому компоненту послать сочетание клавиш. как это...

Хук - как отловить сочетание клавиш?
Долго над этим бьюсь, никак не могу понять, во-первых - lparam меняется только при зажатом Альт, на...

При нажатии на кнопку вызвать сочетание клавиш
Можно ли сделать так, чтобы при нажатии на кнопку было вызвано сочетание клавиш. Нужно: Ctrl+Del,...

Как отменить сочетание клавиш в RichEdit, Delphi 7
На форме есть кнопка и у свойства ShortCut этой кнопки стоит сочетание клавиш Ctrl + Z. Но когда я...

	16.11.2012, 21:49

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.11.2012, 21:49

Помогаю со студенческими работами здесь

Как сделать сочетание "горячих клавиш" на клик по кнопке?
Доброго времени суток! Нужен такой результат: по нажатию определённого сочетания клавиш на...

Нажатие клавиш в другой программе по PID
Приветствую всех:) сразу прошу прощения если написал некорректно или не в той теме:) собсна сам...

Как реализовать несколько горячих клавиш в программе?
Это моя первая программа на Delphi, я нашёл в интернете способ использования назначаемой из хоткея...

Как можно блокировать сочетание клавиш?
Как с помошью Delphi7 можно отключить сочетание клавиш alt+ctrl+delete?

Наверх