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