Модератор: Модераторы
procedure TfrmOptions.edHotKeyKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
TEdit(Sender).Text := ShortCutToText(ShortCut(Key,Shift));
Key := 0;
end;
TextToShortCut(edHotKey.Text)
SovNarKom писал(а):Attid
Тут проблема, что LCL не передаёт это сообщение форме...
Hook:=SetWindowsHookEx(WH_GETMESSAGE, @HotKey_Callback, hInstance, 0);
if nCode<0 then Exit(CallNextHookEx(Hook,nCode,wParam,lParam));
if MSG(Pointer(lParam)^).message<>WM_HOTKEY then Exit(0);
{bla bla}
Exit(CallNextHookEx(Hook,nCode,wParam,lParam));
Hook:=SetWindowsHookEx(WH_GETMESSAGE, @HotKey_Callback, 0, GetCurrentThread);
function HotKey_Callback(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
i: Integer;
begin
if nCode<0 then Exit(CallNextHookEx(Hook,nCode,wParam,lParam));
if MSG(Pointer(lParam)^).message=WM_HOTKEY then
begin
{bla bla}
end;
Exit(CallNextHookEx(Hook,nCode,wParam,lParam));
end;
SovNarKom писал(а):Не помогло. Но в результате перестал работать TTrackBar...
procedure TForm1.Button2Click(Sender: TObject);
var
i: Byte;
begin
Randomize;
i := Random(255);
TB.Position := i;
end;
// При изменеии ползунка
procedure TForm1.TBChange(Sender: TObject);
var
st: ShortString;
begin
st := IntToStr(TB.Position);
Label5.Caption := st;
end;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 131