Цитата:
|
Сообщение от link993
Ув. Pilot Red, подскажи как осуществить передачу команды между двумя програмами (Sockets). Пробовал писать игру не получилось...
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
DoubleBuffered := True; // двойная буфферизация, чтобы не моргали компоненты на форме
if Key = VK_RIGHT then
Shape1.Left := Shape1.Left + 1; // перемещаем вправо
if Key = VK_LEFT then
Shape1.Left := Shape1.Left - 1; // перемещаем влево
if Key = VK_DOWN then
Shape1.Top := Shape1.Top + 1; // перемещаем вверх
if Key = VK_UP then
Shape1.Top := Shape1.Top - 1; // перемещаем вниз
end;
Мне надо сделать так:
if Key = VK_UP then cокет посылает всем клиентам сообщение (команду) VK_UP , а клиенты уже на нее реагируют и двигают shape1 на своей форме вперед. |
Завтра попробую что-нибудь накатать. Сегодня не получиться так как уже под пивандрием
