Delphi - база знаний

       

Левый SHIFT+ENTER/Правый SHIFT+ENTER


Левый SHIFT+ENTER/Правый SHIFT+ENTER





procedure TDecEditForm.Memo1KeyPress(Sender: TObject; var Key: Char);
VAR s:String;  RL:Byte;
begin


IF key=CHR(VK_RETURN) Then  
  Begin  
    //WIN NT/2000  
    If (GetVersion() and $80000000)=0 then  
      BEGIN  
        IF ((Word(GetKeyState(VK_LSHIFT)) and $8000)<>0)  Then  
          Begin  
          End;  
    IF ((Word(GetKeyState(VK_RSHIFT)) and $8000)<>0)  Then  
      Begin  
      End;  
  End  
ELSE  
  //WIN 9.x  
  Begin  
    asm  
      mov ah,2  
      int $16  
      mov RL,al  
    end;  
    if 1 = (RL and 1) then  //  ПРАВЫЙ SHIFT НАЖАТ+ENTER  
      Begin  
      End;  
    if 2 = (RL and 2) then  //  ЛЕВЫЙ SHIFT НАЖАТ+ENTER  
      Begin  
      End;  
  End;   
//WIN 9.x  
END;  
End;

Автор ответа: CHERRY
Взято с Vingrad.ru





Содержание раздела