Forumunuz.Com - Creating a Chat Application (local) with Delphi-2

Forumunuz.Com (https://www.forumunuz.com/)

- Webmaster Forum (https://www.forumunuz.com/webmaster-forum/)

- - Creating a Chat Application (local) with Delphi-2 (https://www.forumunuz.com/webmaster-forum/17400-creating-chat-application-local-delphi-2-a.html)

Kaf Dağı

27 Mart 2015 15:20

Creating a Chat Application (local) with Delphi-2

Kod:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var pt:TPoint;

begin

GetCursorPos(pt);

case key of

 VK_LEFT : SetCursorPos(pt.x-1, pt.y);

 VK_UP : SetCursorPos(pt.x, pt.y-1);

 VK_RIGHT : SetCursorPos(pt.x+1, pt.y);

 VK_DOWN :SetCursorPos(pt.x, pt.y+1);

 end;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:25.