 |
|
27.06.2009, 15:00
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
С нами:
9399214
Репутация:
52
|
|
Тихий спасибо за пример но не много не то =) а если программа свернута и ее окно не активно то такие клавиши не сработают! поэтому и нужно использовать глобальные клавиши
вот к примеру клавиши
Код:
const
//----------------------------------------------------------------------------------------
MOD_ALT = 1;
MOD_CONTROL = 2;
MOD_SHIFT = 4;
MOD_WIN = 8;
//----------------------------------------------------------------------------------------
регистрируем так
Код:
id:=GlobalAddAtom('HotKey');
RegisterHotKey(hWnd, id, MOD_ALT+MOD_CONTROL,VK_A);
мы зарегистрировали глобальную CNTRL+ALT+A
а если написать так
Код:
id:=GlobalAddAtom('HotKey');
RegisterHotKey(hWnd, id, MOD_ALT+MOD_CONTROL,VK_A+VK_B);
VK_A=65;
VK_B=66;
VK_A+VK_B=131
код 131 соответствует клавише VK_F20 = 131 (ток на клаве что то нет ее =) )
тем самым получается что просто так не получится зарегистрирова горячуюю клавишу вида CNTRL+ALT+A+R+(еще n'е количество букв), вопрос в том реально ли это сделать без "изврата"
Последний раз редактировалось transserg; 27.06.2009 в 15:18..
|
|
|
28.06.2009, 02:38
|
|
Новичок
Регистрация: 15.10.2007
Сообщений: 13
С нами:
9774427
Репутация:
17
|
|
Доброго времени суток всем. Помогите разобраться, люди добрые=) Вобщем есть форма, на ней кнопка одна и лейбл один. Мне нужно, чтоб при нажатии на кнопку выводилось в лейбл первое значение массива, при повторном нажатии второе значение и так далее. Массив заранее уже заполнен. У меня постоянно выводится только последнее значение, при этом использую for. Заранее благодарю за помощь.
|
|
|
|
28.06.2009, 03:00
|
|
Участник форума
Регистрация: 23.03.2007
Сообщений: 170
С нами:
10071815
Репутация:
211
|
|
in button click:
.....
i:=i+1;
lblLabel.caption:=IntToStr(mas[i]);
.....
where i:integer; and mas your array =)
|
|
|
|
28.06.2009, 09:39
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
N - кол-во элементов в массиве
Код:
var
mas:array[1..N] of string;
mas_pos:integer = 1;
.......................
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := mas[mas_pos];
inc(mas_pos);
if mas_pos > N then mas_pos := 1; // типа по кругу будем всё выводить )
end;
|
|
|
|
28.06.2009, 14:14
|
|
Новичок
Регистрация: 15.10.2007
Сообщений: 13
С нами:
9774427
Репутация:
17
|
|
slesh, огромнейшее тебе спасибо, очень помог.
|
|
|
|
01.07.2009, 22:03
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
С нами:
9512608
Репутация:
69
|
|
Делаю программу как бы со скином поставил border style >>> bs_none что-бы небыло "окошка" но не знаю как теперь перемещать его, можно ли добавить какойнибудь компонент за который можно было бы перемещать окно или может код который позволит перемещать окно за любое место???????????
|
|
|
|
01.07.2009, 23:32
|
|
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
С нами:
9087590
Репутация:
70
|
|
Сообщение от 0ldbi4
Делаю программу как бы со скином поставил border style >>> bs_none что-бы небыло "окошка" но не знаю как теперь перемещать его, можно ли добавить какойнибудь компонент за который можно было бы перемещать окно или может код который позволит перемещать окно за любое место???????????
можно.
|
|
|
|
02.07.2009, 00:45
|
|
Banned
Регистрация: 26.01.2009
Сообщений: 16
С нами:
9099476
Репутация:
14
|
|
0ldbi4,
Код:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;
|
|
|
|
02.07.2009, 11:01
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
С нами:
9512608
Репутация:
69
|
|
s.p.a.m + помог
|
|
|
|
02.07.2009, 12:15
|
|
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
С нами:
9593244
Репутация:
107
|
|
Пожалуйста не говорите, что разделить и будет проще. Помогите с данным вопросом.
procedure TForm1.Button1Click(Sender: TObject);
var
begin
Первая часть кода
Если мы нажимаем button2, то продолжается работа программы и выполняется кусок кода номер 2
Вторая часть кода
end;
Как это реализовать, заранее спасибо!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [n]-c0der](/avatars/avatar75882.jpg?1364063){kind=avatar}
Похожие темы
Линейный вид
