VPF::Заставить лампочки моргать на клаве ?

Trotter

Дата 18.12.2006, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 24.10.2006
Где: Нижний Новгород

Репутация: 0
Всего: 0

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
Procedure SetState(key: Integer; Value: Boolean);
var
 KeyState:TKeyboardState;
 begin
GetKeyboardState(KeyState);
KeyState[key] := Integer(Value);
SetKeyboardState(KeyState) ;
end;
begin
Timer1.Tag := (Timer1.Tag + 1) mod 4;
SetState(VK_NUMLOCK, Timer1.Tag = 1);
SetState(VK_SCROLL, Timer1.Tag = 2);
SetState(VK_CAPITAL, Timer1.Tag = 3);
end;



end.

может я кудато неправельно чёто пешу ? smile

jaAlex

Дата 18.12.2006, 00:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event (VK_SCROLL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event (VK_SCROLL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  keybd_event (VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event (VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

Могу предложить так. Если не подходит - экспериментируй. Можно сделать, чтобы мигало последовательно, т.е. Num->Caps->Scroll. Я дал тебе пример, остальное пробуй сделать сам.

SlaUr

Дата 18.12.2006, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Код


procedure Scrool(up:boolean);begin if up then KS[145] :=  1 else KS[145] := 0;SetKeyboardState(KS);end;
procedure num(up:boolean);begin if up then KS[144] :=  1 else KS[144] := 0;SetKeyboardState(KS);end;
procedure caps(up:boolean);begin if up then KS[020] :=  1 else KS[020] := 0;SetKeyboardState(KS);end;

Добавленно 19.12.2006

Sorry ,забыл, это уже не работает в XP

Это сообщение отредактировал(а) SlaUr - 19.12.2006, 07:39

Snowy

Дата 18.12.2006, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

FAQ: http://vingrad.ru/DELPHI-DLP-000569

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »