Вопрос № 114158: Здраствуйте эксперты. Вобщето у меня 2 вопроса)
1й
Есть форма, нужно чтобы при нажатии на button1 в edit1.text выводился внешний IP, а в edit2.text внутрений IP.
2й
Нужно сделать чтото типа Painta, только простейшие функции, нужно...Вопрос № 114237: Квадраты при игре в крестики нолики пронумерованны, в следующем порядке:
1 2 3
4 5 6
7 8 9
Вводим номера 3 любых квадратов в текстовый редактор Edit.Text
Проверить лежат ли они на одной горизонтали, вертикали, диагонали.
Резу...Вопрос № 114308: Как в Delphi7 сделать что бы окно можно было перемещать
через панель или двигая само окно вида BSNone...
Вопрос № 114.158
Здраствуйте эксперты. Вобщето у меня 2 вопроса)
1й
Есть форма, нужно чтобы при нажатии на button1 в edit1.text выводился внешний IP, а в edit2.text внутрений IP.
2й
Нужно сделать чтото типа Painta, только простейшие функции, нужно:
а) собственно поверхность для рисовани б) выбор цвета(из 16 имеющихся) в) выбор кисти(рисовать точкой, квадратом, кругом), ничего больше!)
Буду очень благодарен за ответы!)
Подключаем WinSock и Edit2.Text:=GetLocalIP; получаем внктренний IP
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 2-ой класс)
Ответ отправлен: 15.12.2007, 18:40 Оценка за ответ: 4 Комментарий оценки: Это все правильно, но в ответе не указано как узнать внешний ИП.
Вопрос № 114.237
Квадраты при игре в крестики нолики пронумерованны, в следующем порядке:
1 2 3
4 5 6
7 8 9
Вводим номера 3 любых квадратов в текстовый редактор Edit.Text
Проверить лежат ли они на одной горизонтали, вертикали, диагонали.
Результат выводить в Memo1. Введённые числа сохранять в ListBox1.
Горизонталь, вертикаль, диагональ выбираем в компоненте ComboBox.
Напишите пожалуйста код условия которое проверяет лежат ли они на одной диагонали, вертикали, горизонтали.
Отправлен: 16.12.2007, 09:50
Вопрос задал: Slim1210 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gh0stik
Здравствуйте, Slim1210!
На самом деле задачка становится интереснее, если стремиться к минимуму проверки возможных условий. ДЛя этого необходимо уловить какую-либо уникальную закономерность между числами лежащими на горизонталях/диагоналях/вертикалях. Как оказалось уникальным есть произведение элементов соответсвующих горизонталей/диагоналей/вертикалей.
Вот непосредственнно код проверки условия: ... case ComboBox1.ItemIndex of
0: if (a1*a2*a3=6) or (a1*a2*a3=120) or (a1*a2*a3=504) then Memo1.Lines.Add('лежат на горизонтале') else Memo1.Lines.Add('не лежат на горизонтале');
1: if (a1*a2*a3=28) or (a1*a2*a3=80) or (a1*a2*a3=162) then Memo1.Lines.Add('лежат на вертикале') else Memo1.Lines.Add('не лежат на вертикале');
2: if (a1*a2*a3=45) or (a1*a2*a3=105) then Memo1.Lines.Add('лежат на диагонале') else Memo1.Lines.Add('не лежат на диагонале'); end;
...
Полный код смотрите в прикрепленном к ответу файле.
Good Luck!!!
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW:http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 17.12.2007, 23:32
Вопрос № 114.308
Как в Delphi7 сделать что бы окно можно было перемещать
через панель или двигая само окно вида BSNone
Отправлен: 16.12.2007, 17:26
Вопрос задал: Максим (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gh0stik
Здравствуйте, Максим!
Можно создать обработчик FormMouseMove() с таким содержанием: procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; { a magic number } begin ReleaseCapture; Self.Perform(WM_SysCommand, SC_DragMove, 0); end;
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW:http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 16.12.2007, 17:37 Оценка за ответ: 5
Отвечает: Genia007
Здравствуйте, Максим! Кинте на форму компонент FormRegion из библиотеки компонентов FormRgn и установите ClientDrag в true, заодно вы можете сделать окно любой формы.
Ответ отправил: Genia007 (статус: 2-ой класс)
Ответ отправлен: 16.12.2007, 18:52 Оценка за ответ: 3
