Вопрос № 63986: Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как в программе засечь нажатие пробела, и как узнать, что клавижу отпустили? Заранее благодарен!...Вопрос № 63996: Доброго времени суток. Как *программно* поменять местами закладки TPageControl?...Вопрос № 64011: Здравствуйте, дорогие эксперты. Я прорисовываю ячейки TCheckListBox (свойство OwnerDraw=true) таким образом, чтобы
три ячейки прорисовывались серым цветом, следующие три - белым, и т.д. (см. приложение). В принципе, работает, но при перемещении по бо...Вопрос № 64037: Здраствуйте.
Подскажите пожалуйста как послать от сервера клиенту сообщение,
Использую TidTcpServer /Ttcpserver и TidTcpclient / Ttcpclient.
И если это нереально то стоит ли мне устанавливать Delphi 2005, чтобы воспользоваться компонентом...
Вопрос № 63.986
Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как в программе засечь нажатие пробела, и как узнать, что клавижу отпустили? Заранее благодарен!
Отвечает: Маренич Владимир
Здравствуйте, Андрющенко Вячеслав Васильевич!
Используйте события OnKeyDown и OnKeyUp, которые вызываются при нажатии и отпускании клавиши соответственно.
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 24.11.2006, 12:00
Отвечает: Мединцев Василий
Здравствуйте, Андрющенко Вячеслав Васильевич!
Если это нужно отследить глобально в программе даже когда программа сама скрыта или минимизирована, то поробовать можно использовать один из компонентов обработки "горячих клавиш".
HotKeyManager 1.6.0 - старенький уже почти, но я пользуюсь .... пока все нормально.
Одна из ссылок на него : http://downloads.delphi32.com/2726/5308/hotkeymg.zip
Благодарю, что выслушал! Удачи !
--------- Ничто так не сдерживает полет мысли, как компилятор !
Ответ отправил: Мединцев Василий (статус: 1-ый класс)
Ответ отправлен: 24.11.2006, 12:01
Отвечает: Мишин Михаил
Здравствуйте, Андрющенко Вячеслав Васильевич!
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_SPACE then
Label1.Caption:='Клавишу нажали';
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_SPACE then
Label1.Caption:='Клавишу отпустили';
end;
Ответ отправил: Мишин Михаил (статус: 1-ый класс)
Ответ отправлен: 24.11.2006, 15:45
Вопрос № 63.996
Доброго времени суток. Как *программно* поменять местами закладки TPageControl?
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Валерий Кравцов!
У закладок установить свойство TabIndex в нужное значение
Ответ отправил: Лукьяненко Алексей Валериевич (статус: 6-ой класс)
Ответ отправлен: 24.11.2006, 12:44 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Думал сойду с ума. Не нужно так много работать... :)
Вопрос № 64.011
Здравствуйте, дорогие эксперты. Я прорисовываю ячейки TCheckListBox (свойство OwnerDraw=true) таким образом, чтобы три ячейки прорисовывались серым цветом, следующие три - белым, и т.д. (см. приложение). В принципе, работает, но при перемещении по боксу вокруг белых ячеек остается темная рамка. Как от нее избавиться?
С уважением,
Михаил.
Приложение:
Отправлен: 24.11.2006, 14:06
Вопрос задал: Михаил73 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gh0stik
Здравствуйте, Михаил73!
Добавте обработчик CheckListBox1Click, который имеет вид:
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
CheckListBox1.Repaint; //т.е просто перерисуйте компонент
end;
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Практикант)
Ответ отправлен: 24.11.2006, 14:22
Отвечает: Melamed
Здравствуйте, Михаил73!
По вашему коду вы не выделяете выделиный элемент. Я в приложении привожу код, в котором
выделеный эленент выделяется.
Приложение:
Ответ отправил: Melamed (статус: 8-ой класс)
Ответ отправлен: 24.11.2006, 15:22
Вопрос № 64.037
Здраствуйте.
Подскажите пожалуйста как послать от сервера клиенту сообщение,
Использую TidTcpServer /Ttcpserver и TidTcpclient / Ttcpclient.
И если это нереально то стоит ли мне устанавливать Delphi 2005, чтобы воспользоваться компонентом Tsocet или от неё тоже толку не будет?!
Отправлен: 24.11.2006, 18:16
Вопрос задал: chikanok (статус: 3-ий класс)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, chikanok!
Если не будете смотреть в справку и каталог DemoInternet - то толку точно не будет ни от одной из версий
Ответ отправил: Лукьяненко Алексей Валериевич (статус: 6-ой класс)
Ответ отправлен: 24.11.2006, 18:21 Оценка за ответ: 1 Комментарий оценки: Сами посмотрите!!! Где вы там видите отправку сообщений ОТ СЕРВЕРА К КЛИЕНТУ!!!???
Отвечает: Томша Павел
Здравствуйте, chikanok!
В приложении код отправки строки с помощью TcpClient. Ip, Port и S - строковые переменные, обозначающие Ip адрес, куда вы посылаете сообщение, порт, которому вы посылаете сообщение и строка, которую вы посылаете соответственно
Приложение:
Ответ отправил: Томша Павел (статус: 3-ий класс)
Ответ отправлен: 25.11.2006, 10:45
Отвечает: PaVeL_Ekt
Здравствуйте, chikanok!
попробуй вот так
var buf:array [1..10] of byte;
begin
idtcpserver1.Bindings.Items[0].Send(buf,sizeof(buf),flag); //или
idtcpserver1.bindings.Items[0].SendTo(Remote_IP, Remote_PORT, Buf, SizeOf(buf));
end;
Flag=
MSG_OOB - Send out-of-band data .= $1
MSG_DONTROUTE - Do not route the data.=$4
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 5-ый класс)
Ответ отправлен: 27.11.2006, 07:17 Оценка за ответ: 5 Комментарий оценки: Спасибо! А как это принять клиентом, точнее узнать что произошло событие?!
