Доброе время суток, X-RayMan! ===== Pro bono publico, no bloody panico! ===== Пользуйся библиотекой MSDN - http://www.msdn.microsoft.com Ответ отправлен: 02.01.2003, 16:39 Отправитель: Idle Sign Отвечает Vadim
Добрый день, X-RayMan! Ты какие сообщения имел в виду? Эти? (см. приложение)
Приложение: Ответ отправлен: 02.01.2003, 15:17 Отправитель: Vadim Отвечает Jadd
Добрый день, X-RayMan! Какой. Там их тьма. А если еще прикинуть что есть возможность создавать пользовательские сообщения. Короче Platform SDK, MSDN, Help. Больше врядли где нароешь. Ответ отправлен: 03.01.2003, 01:52 Отправитель: Jadd
Вопрос № 391
Здравствуйте эксперты. У меня к вам такой вопрос: как привязать окно к верхнему левому углу экрана. Чтобы когда программа запускалась окно программы было в левом верхнем углу и чтобы его нельзя было передвинуть.
Приветствую Вас, Вячеслав! Чтобы нельзя передвинуть - в свойствах формы Align=Left или Top. Но как сделать в этом случае окно своего размера, а не только заданной ширины (или высоты), не знаю. А привязать свое окно при запуске - в свойствах формы Left=0, Top=0. Но тогда его можно будет передвигать. Ответ отправлен: 03.01.2003, 16:05 Отправитель: kvINT Отвечает Артём Шегеда
Приветствую Вас, Вячеслав!
Всё упирается в Win32 API. Смотри приложение и вникай...
Приложение: Ответ отправлен: 03.01.2003, 12:11 Отправитель: Артём Шегеда Отвечает Necro
Приветствую Вас, Вячеслав! Чтобы бросить в верхний левый угол в Form1.onCreate: Form1.left := 0; Form1.top := 0; А теперь чтобы нельзя было передвинуть(и поменять размер тоже): в разделе protected описания формы объявляешь: procedure wmncht(var m:twmnchittest);message wm_nchittest; И дальше: Procedure TForm1.wmncht; begin inherited; m.Result := htClient; end;
Приложение: Ответ отправлен: 03.01.2003, 12:19 Отправитель: Necro Отвечает Jadd
Приветствую Вас, Вячеслав! Значит для оставления повер всех окон. Ставишь свойства формы в FormStyle:=fsStayOnTop; Дальше. Вычислить углы экрана просто. Надо вызвать WinAPI функции GetSystemMetrics(SM_CXSCREEN); GetSystemMetrics(SM_CYSCREEN); для размера экрана или GetDevCaps, но это немного сложнее. Далее пишешь обработчик OnPaint и в нем постоянно обновляешь положение окна. Можно через OnMouseMove, но надо определять нажатие кнобы. Есть еще функции типа GetWindowPlacement, есть сообщение WM_WINDOWPOSCHANGING. Все в твоих руках. Так что, просто ройся в MSDN и пиши. Ответ отправлен: 05.01.2003, 02:55 Отправитель: Jadd Отвечает Vadim
Приветствую Вас, Вячеслав! Присвоить свойства форме после создания: Left = 0 Top = 0 Чтобы окно не двигалось Borderstyle="bsNone," тогда не будет заголовка у формы и не за что его двигать.
Ответ отправлен: 05.01.2003, 09:41 Отправитель: Vadim
Вопрос № 392
Здравствуйте, эксперты! Расскажите мне "тёмному" простой способ сделать пинг некой машины с IP-адресом хх.хх.хх.хх, для определения налчия этой машины в сети, если это конечно возможно... Задумка такова, чтоб каждый небольшой промежуток времени происходило сканирование локальной сети и выводился список тех кто есть, а кого нет - для оперативности...
Доброе время суток, TIMON! Есть пример в дельфе, которая делает опрос сети на предмет наличия компа в сети, т.е. получился некий а-ля Browser или Novel Monitor. Ну просто все. Берешь компоненты для PowerSock и можно в поле host писать адрес и пытаться законнектиться. Далее либо ошибку вернет, либо даст точный адрес в сети. Есть другой способ, но он немного сложнее. Как? Копай сам. Ответ отправлен: 05.01.2003, 02:42 Отправитель: Jadd
Вопрос № 393
Здравствуйте ув. Эксперты!!! Как можно сделать чтобы программа сохраняла содержимое Memo1 в файле с названием даты в DateTimePicker1. Memo1.Lines.SaveToFile(DateTimePicker1.Format + 'txt');
Здравствуйте, Elvis! Var S:String; I:Integer; Begin S:=DateToStr(DateTimePicker1.Date); For I:=1 to Length(S) do if (S[I]='.') or (S[I]='/') then S[I]:='_'; S:=S+'.txt'; End; Вот у тебя и есть файл с именем типа "12_01_2002". Как в него что-то сохранить - это уже мелочи.
Ответ отправлен: 03.01.2003, 23:19 Отправитель: baldr Отвечает Артём Шегеда
Доброе время суток, Elvis!
Всё очень просто: DateToStr(DateTimePicker1.Date) Ответ отправлен: 03.01.2003, 12:17 Отправитель: Артём Шегеда Отвечает Jadd
Доброе время суток, Elvis! var szFileName: String; begin szFileName:= FormatDateTime('ddmmyyyy', DateTimePicker1.Date); szFileName:=szFileName + '.txt'; Memo1.Lines.SaveToFile(szFileName); end; все. Ответ отправлен: 05.01.2003, 02:39 Отправитель: Jadd Отвечает Vadim
Приветствую Вас, Elvis! Memo1.Lines.SaveToFile(DateToStr(DateTimePicker1.Date)+'.txt') - так будет правильно. DateTimePicker.Format - это в каком виде будет представлена дата, типа 'ddMMyyyy'.
Ответ отправлен: 05.01.2003, 09:42 Отправитель: Vadim
Вопрос № 394
Здравствуйте ув. Эксперты!!! Моя программа должна брать значение из HKEY_CURRENT_USER Softwarednewnikpaswdspas и если оно равное Edit1.Text то записывать в значение Pas Edit2.Text но она этого делать не собирается!!! очень надеюсь на вашу помошь, я ещё учусь!!!
Добрый день, Elvis! 1 - в строке записи место Edit2 написано Edit1. RegIni.WriteString('Paswds', 'Pas', Edit1.Text); 2 - Как я понял, здесь что-то записывается в реестр, а для этого лучше использовать TRegistry. Ответ отправлен: 03.01.2003, 14:24 Отправитель: Melkor Отвечает Vladimir
Добрый день, Elvis! Насколько я помню, в реестр ничего не запишется, пока ты не освободишь RegIni RegIni.Free;
Ответ отправлен: 04.01.2003, 09:24 Отправитель: Vladimir Отвечает Vadim
Доброе время суток, Elvis! Попробуй такой код (см. приложение).
Приложение: Ответ отправлен: 05.01.2003, 09:42 Отправитель: Vadim
Вопрос № 395
Пытаюсь использовать компоненты dbExpress для доступа к подвешенному MySQL, но получаются проблемы :( Сначала не было LIBMYSQL.dll, но его нашел. Теперь такой вопрос - как мне получить данные с сервера? Настроил SQLConnection, вроде бы все нормально (Successfully Conected), но когда настраиваю SQLTable: указываю SQLConnection, пишу имя таблицы (в IndexName лаже видны поля таблицы), но вот когда пытаюсь ставить Active - True, то вылазиет ошибка - "Access Violation at address 06C68774 in module 'DBEXPMYS.DLL'. Read of address 6C706D65". Что делать? Может быть надо поставить что-то в MasterSource? Можете вкраце описать, как настривать эти компоненты, для чтения БД, и как работать с SQLQuery?
Здравствуйте, Narh! Скорее всего, тебе надо для начала установить драйвер ODBC для MySQL, его можно взять на www.mysql.com. Далее, создать в BDE(или ODBC)-администраторе источник данных с указанием на сервер MySQL и только после этого спокойно пользоваться dbExpress'ом.
Ответ отправлен: 05.01.2003, 09:41 Отправитель: Vadim
Форма отправки вопроса
Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook"
и "Microsoft Outlook Express". В программе The Bat!
подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте,
что в некоторых браузерах могут стоять запреты на открытие других
окон, а также "чрезмерное" кэширование данных,
при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet
Explorer 5.0+ или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.