/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 474
от 16.05.2006, 02:35

Вопрос № 42.583

Здравствуйте Уважаемые Эксперты! На форме лежит PageControl. Пользователь сам может добавлять и удалять страницы (соотв. кнопочки). содержимое страниц разное. Вопрос: как реализовать перемещение страниц с помощью мыши (Drag And Drop) как в Excel? Приложение: D7

Отправлен: 10.05.2006, 11:37 Вопрос задал: Дмитрий Александрович (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Рубан Николай Николаевич Здравствуйте, Дмитрий Александрович! Вот посмотрите в приложении кусочек кода, который позволяет перемещать закладки PageControl: Приложение: procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PageControl1.BeginDrag(False); end; procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); const TCM_GETITEMRECT = $130A; var indx: Integer; rect: TRect; begin if not (Sender is TPageControl) then Exit; with PageControl1 do begin for indx:=0 to PageCount-1 do begin Perform(TCM_GETITEMRECT, indx, lParam(@rect)); if PtInRect(rect, Point(X,Y)) then begin if indx <> ActivePage.PageIndex then begin ActivePage.PageIndex:=indx; Exit; end; end; end; end; end; procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if Sender is TPageControl then Accept:=True; end; --------- Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 5-ый класс) Ответ отправлен: 10.05.2006, 12:49 Оценка за ответ: 5 Комментарий оценки: Спасибо сейчас буду пробовать!

Вопрос № 42.585

Ув. эксперты, такой вопрос: На вкладку PageControl не вмещаются все необходимые мне элементы. Как сделать чтобы текущая вкладка "прокручивалась" с помощью ScrollBara? Заранее спасибо за ответ.

Отправлен: 10.05.2006, 12:07 Вопрос задал: Устинов Сергей Евгеньевич (статус: 8-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Рубан Николай Николаевич Здравствуйте, Устинов Сергей Евгеньевич! Берем компонент типа TScrollBox, ложим в нужный компонент делаем свойство Align=alClient, а в него уже располагаем нужный БОЛЬШОЙ компонент. --------- Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 5-ый класс) Ответ отправлен: 10.05.2006, 12:16 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за оперативность!!!

Отвечает: Lexus Здравствуйте, Устинов Сергей Евгеньевич! Как я понял вас не устраивают автоматически появляющиеся, как только не хватает места в PageControl, уродские кнопки прокрутки! Тогда такое решение: 1) бросаем на форму ScrollBar1 (TScrollBar) и PageControl1 (TPageControl) в котором создаем побольше страничек 2) Пишем обработчик для создания формы: procedure TForm1.FormCreate(Sender: TObject); begin Scrollbar1.Max:=PageControl1.PageCount-1; //Это необходимо чтобы в ScrollBar-е было столько же позиций, сколько страниц в PageControl-е Scrollbar1.Position:=PageControl1.ActivePageIndex; //А это чтобы СкролБар был в той позиции, какая страница активна end; 3) Пишем обработчик для перемещения СкролБара: procedure TForm1.ScrollBar1Change(Sender: TObject); begin PageControl1.TabIndex:=ScrollBar1.Position; //Двигаем ползунок - перемещается страница end; 4) Пишем обработчик для изменения страницы: procedure TForm1.PageControl1Change(Sender: TObject); begin Scrollbar1.Position:=PageControl1.TabIndex; //Переключили страницу - сдвинулся ползунок end; 5) Запускаем!

Ответ отправил: Lexus (статус: 3-ий класс) Ответ отправлен: 10.05.2006, 20:08 Оценка за ответ: 3 Комментарий оценки: Внимательно читайте вопрос! Я просил "чтобы текущая вкладка "прокручивалась" с помощью ScrollBara", мне как раз эти "уродские кнопки прокрутки" и нужны. Зачем мне "побольше страничек" у меня и так в программе будет пару десятков!!! Поэтому больше 3 баллов поставить не могу, но и меньше не поставлю - все-таки старались помочь :)

Вопрос № 42.602

Подскажите, пожалуйста, как вывести в определённые позиции шаблона в MS Word некоторые данные (и каким образом можно правильно создать и подготовить для вывода данных этот шаблон).

Отправлен: 10.05.2006, 14:00 Вопрос задал: Алексей Владимирович (статус: 7-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Kazakh Здравствуйте, Алексей Владимирович! Вот кусок рабочего кода. Надеюсь разберетесь. Немного не оптимизировано, но работает. Если что спрашивайте. Приложение: procedure TF_SelfSelect.TntBitBtn3Click(Sender: TObject); var s:string; begin try MSWord:=CreateOleObject('Word.Application'); MSWord.Displayalerts:=False; MSWord.Visible:=true; //---------------------------------------------- if not FileExists(path+'PersonalCard.dot') then begin Application.MessageBox('Шаблон "PersonalCard.dot" не найден!'+#13+'Печать карточки не возможна!'+#0, PChar(Application.Title),mb_OK+MB_ICONHAND); exit; end; MSWord.Documents.Open(FileName:=path+'PersonalCard.dot', ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate:='', Revert:=False, WritePasswordDocument:='', WritePasswordTemplate:='', Format:=0); //вставка фотки if Assigned(Image1.Picture.Graphic) then begin Image1.Picture.SaveToFile(path+'tmp.jpg'); MSWord.Selection.InlineShapes.AddPicture(FileName:=path+'tmp.jpg', LinkToFile:=False, SaveWithDocument:=True); DeleteFile(path+'tmp.jpg'); end else //Поиск поля InsertField('[пш_фото]',' '); InsertField('[пш_№]',dm.vPPS1.FieldByName('EmployeeID').AsString); InsertField('[пш_фамилия]',dm.vPPS1.FieldByName('LastName').AsString); InsertField('[пш_имя]',dm.vPPS1.FieldByName('FirstName').AsString); InsertField('[пш_отчество]',dm.vPPS1.FieldByName('SurName').AsString); InsertField('[пш_институт]',dm.vPPS1.FieldByName('Institute').AsString); InsertField('[пш_кафедра]',dm.vPPS1.FieldByName('kafedra').AsString); InsertField('[пш_должность]',dm.vPPS1.FieldByName('dolzhnost').AsString); dm.qtemp.SQL.Clear; s:=dm.vPPS1.FieldByName('ScienceDegreeID').AsString; if s='' then s:='-1'; dm.qtemp.SQL.Add('select name from DictScienceDegree where ScienceDegreeID ='+s); dm.qtemp.Open; InsertField('[пш_уч_степень]',dm.qtemp.fieldbyname('name').AsString); dm.qtemp.SQL.Clear; s:=dm.vPPS1.FieldByName('ScienceRankID').AsString; if s='' then s:='-1'; dm.qtemp.SQL.Add('select name from DictScienceRank where SciencerankID ='+s); dm.qtemp.Open; InsertField('[пш_уч_звание]',dm.qtemp.fieldbyname('name').AsString); //InsertField('[пш_описание]',TMemoField(dm.vPPS1.FieldByName('Description')).AsString); if (not EmptyClipBoard) and ClipBoard.HasFormat(CF_Text) then begin MSWord.Selection.Find.ClearFormatting; MSWord.Selection.Find.Text := '[пш_описание]'; MSWord.Selection.Find.Forward := True; MSWord.Selection.Find.Wrap := 0; MSWord.Selection.Find.Format := False; MSWord.Selection.Find.MatchCase := False; MSWord.Selection.Find.MatchWholeWord := False; MSWord.Selection.Find.MatchWildcards := False; MSWord.Selection.Find.MatchSoundsLike := False; MSWord.Selection.Find.MatchAllWordForms := False; MSWord.Selection.Find.Execute; Clipboard.Clear; TntDBMemo1.SelectAll; TntDBMemo1.CopyToClipboard; MSWord.Selection.Paste; end; //ShowMessage(TMemoField(dm.vPPS1.FieldByName('Description')).AsString); InsertField('[пш_дата_рожд]',dm.vPPS1.FieldByName('birthdate').AsString); InsertField('[пш_место_рожд]',' '); dm.qtemp.SQL.Clear; s:=dm.vPPS1.FieldByName('NationalityID').AsString; if s ='' then s:='-1'; dm.qtemp.SQL.Add('select name from DictNationality where NationalityID ='+s); dm.qtemp.Open; InsertField('[пш_национальность]',dm.qtemp.fieldbyname('name').AsString); InsertField('[пш_член_профсоюза]',' '); InsertField('[пши_учебное_заведение]',' '); InsertField('[пши_год_пост]',' '); InsertField('[пши_год_оконч]',' '); InsertField('[пши_специальность]',' '); InsertField('[пши_квалификация]',' '); InsertField('[пши_номер_дипл]',' '); InsertField('[пш_специальность]',' '); InsertField('[пш_общий_стаж]',' '); InsertField('[пш_непр_стаж]',' '); dm.qtemp.SQL.Clear; s:=dm.vPPS1.FieldByName('FamilyStatusID').AsString; if s='' then s:='-1'; dm.qtemp.SQL.Add('select name from DictFamilyStatus where FamilyStatusID ='+s); dm.qtemp.Open; InsertField('[пш_сем_пол]',dm.qtemp.fieldbyname('name').AsString); InsertField('[пш_уд_лич]',' '); InsertField('[пш_дом_адр]',dm.vPPS1.FieldByName('Address').AsString); //------------------------------------------------ //Сохранение и выход if not DirectoryExists(path+'Documents') then CreateDir(path+'Documents'); MSWord.ActiveDocument.SaveAs(FileName:=path+'DocumentsЛичная карточка '+dm.vPPS1.FieldByName('LastName').AsString+'.doc', FileFormat:=0, LockComments:=False, Password:='', AddToRecentFiles:=True, WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False); Application.MessageBox('Формирование личной карточки закончено'+#0, PChar(Application.Title),mb_OK+MB_ICONASTERISK); finally MSWord.Displayalerts:=true; MSword.Quit; MSword:=UnAssigned; end; end; function TF_SelfSelect.InsertField(FieldName: string; FieldData: WideString): boolean; begin MSWord.Selection.Find.ClearFormatting; MSWord.Selection.Find.Replacement.ClearFormatting; MSWord.Selection.Find.Text := FieldName; MSWord.Selection.Find.Replacement.Text := FieldData; MSWord.Selection.Find.Forward := True; MSWord.Selection.Find.Wrap := 1; //wdFindContinue MSWord.Selection.Find.Format := False; MSWord.Selection.Find.MatchCase := False; MSWord.Selection.Find.MatchWholeWord := False; MSWord.Selection.Find.MatchWildcards := False; MSWord.Selection.Find.MatchSoundsLike := False; MSWord.Selection.Find.MatchAllWordForms := False; MSWord.Selection.Find.Execute(Replace:=2); end; --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 8-ой класс) Ответ отправлен: 10.05.2006, 14:50 Оценка за ответ: 5

Вопрос № 42.634

доброго времени суток уважаемые дамы и господа Столкнулся с токой проблемой: захотелось мне написать на основе сокетов небольшой сервер где в качестве клиента выступает IE знаю что надо слушать 80 порт или другой указанный явно (например 127.0.0.1:8686) факт в том что ничего не получается ... подскажите где поискать или как писать желательно исходники на делфе хотелось бы использовать третью дельфу (максимум 5) извините за беспокойство но подскажите хоть в какую сторону копать заранее благодарен

Отправлен: 10.05.2006, 18:09 Вопрос задал: Миронов Алексей Игоревич (статус: 4-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Bochvarov NikB Здравствуйте, Миронов Алексей Игоревич! Напиши в ИЕ: http://localhost/0 У меня Д5 Удача! Приложение: Напиши в ИЕ: http://localhost/0 program srvr; uses Windows, Messages, WinSock, SysUtils; {$R *.RES} const WM_MY_SOCK_MESSAGE = WM_USER+1; LFCR = #10#13; type TBuffer = array[0..2048] of Char; var //MainVariables wClass: TWndClass; // Class struct for main window hInst, // Handle of program instance Handle: Integer; // Handle of main window Msg: TMSG; // Message struct //Socket Server: TSocket; WSD: TWSAData; Addr: TSockAddrIn; // Address for connect. Port: Integer; ReadBuff: TBuffer; CountRB: Word; //=== Cleanup and stop the program ==================== procedure ShutDown; begin closesocket(Server); WSACleanup; Halt; end; //========================================================= // Process Messages procedure ProcessMessages; begin while GetMessage(Msg,0,0,0) do begin TranslateMessage(Msg); DispatchMessage(Msg); end; end; //========================================================= // Process CreateWindow procedure OnCreate(hWnd:Integer); begin end; {========================================== SOCKET EVENTS AND ROUTINES ==============} //========================================================= // Send a String #0 procedure WriteString(Sock:word;Buff:PChar); begin send(Sock,Buff^,Length(Buff),0); end; //========================================================= // Send Buffer procedure WriteData(Sock:word;Buff:pointer;Len:Word); begin send(Sock,Buff^,Len,0); end; //========================================================= // Process OnAccept procedure OnServerAccept(wParam,lParam:longInt); begin accept(Server,nil,nil) end; //========================================================= // Process OnClose procedure OnServerClose(wParam,lParam:longInt); begin end; //========================================================= // About + procedure DoAbout(wParam:longInt); var SI:TSystemInfo; OsVer:TOSVersionInfoA; MS:TMemoryStatus; begin ZeroMemory(@OsVer,SizeOf(OsVer)); ZeroMemory(@Si,SizeOf(Si)); ZeroMemory(@MS,SizeOf(MS)); MS.dwLength:=SizeOf(MS); OsVer.dwOSVersionInfoSize:=SizeOf(OsVer); GetVersionEx(OsVer); GetSystemInfo(Si); GlobalMemoryStatus(MS); WriteString(wParam, PChar( 'Srvr v1.0 (c)MoleSoftware<BR>'#13+ #13'<BR>OS '+IntToStr(OsVer.dwMajorVersion)+'.'+IntToStr(OsVer.dwMinorVersion)+ #13'<BR>CPUs '+IntToStr(Si.dwNumberOfProcessors)+ #13'<BR>CPU '+IntToStr(Si.dwProcessorType)+ #13'<BR>RAM '+IntToStr(Round(MS.dwTotalPhys/1048576))+ #13'<BR>Fr.RAM '+IntToStr(Round(MS.dwAvailPhys/1024))+'K'+ #13'<BR>Vrt '+IntToStr(Round(MS.dwTotalVirtual/1048576))+'MB'+ #13'<BR>Fr.Vrt '+IntToStr(Round(MS.dwAvailVirtual/1048576))+'MB'+ #13#13+LFCR)); end; //========================================================= // Process OnRead //================ COMMANDS =============================== // '0' - Aboutbox + systeminfo procedure OnServerRead(wParam,lParam:longInt); var Command:String; Line: string; begin CountRB:=recv(wParam,ReadBuff,SizeOf(ReadBuff),0); if CountRB = 0 then exit; Line:=Copy(ReadBuff,0,CountRB); Command:=Copy(Line,Pos('/',Line)+1,Pos('HTTP',Line)-Pos('/',Line)-2); if command='' then exit; case command[1] of '0' : DoAbout(wParam); else end; closesocket(wParam); end; //========================================================= // Process OnSocketMessage procedure OnSocketMessage(Msg,wParam,lParam:longInt); begin if ( LOWORD(lParam) and FD_ACCEPT = FD_ACCEPT) then OnServerAccept(wParam,lParam); if ( LOWORD(lParam) and FD_CLOSE = FD_CLOSE) then OnServerClose(wParam,lParam); if ( LOWORD(lParam) and FD_READ = FD_READ) then OnServerRead(wParam,lParam); end; //========================================================= // Processes every message sent to MAIN window function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall; begin case Msg of WM_CREATE : OnCreate(hWnd); WM_MY_SOCK_MESSAGE : OnSocketMessage(Msg,wParam,lParam); WM_DESTROY : ShutDown; end; Result:=DefWindowProc(hWnd,Msg,wParam,lParam); end; //================================================= // OnInitSocket procedure InitSocket; begin Port:=80; WSAStartup($101,WSD); Server := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); if Server = -1 then WSACleanup; Addr.sin_family:= AF_INET; Addr.sin_addr.s_addr:=INADDR_ANY; Addr.sin_port:=htons(Port); bind(Server,Addr,SizeOf(Addr)); WSAAsyncSelect(Server,Handle,WM_MY_SOCK_MESSAGE, FD_ACCEPT + FD_CLOSE + FD_READ); listen(Server,10); end; //================================================= // This is the MAIN program FUNCTION (WinMain) begin hInst:=GetModuleHandle(nil); with wClass do begin Style:= CS_PARENTDC; hIcon:= 0; cbClsExtra:= 0; cbWndExtra:= 0; lpfnWndProc:= @WindowProc; hInstance:= hInst; hbrBackground:= COLOR_WINDOW; lpszClassName:= 'MyClassName'; lpszMenuName:= NIL; hCursor:= 0;//LoadCursor(0,IDC_ARROW); end; RegisterClass(wClass); Handle:=CreateWindow('MyClassName','MyWindowName',WS_BORDER + WS_SIZEBOX, 0,0,10,10,0,0{hPP},hInst,nil); if Handle<>0 then begin UpdateWindow(Handle); // ShowWindow(Handle, SW_HIDE); // <<<<<-------------REM ShowWindow(Handle, SW_SHOW); end; InitSocket; ProcessMessages; end.

Ответ отправил: Bochvarov NikB (статус: 8-ой класс) Ответ отправлен: 11.05.2006, 00:03

Вопрос № 42.642

Подскажите альтернативу Rave Report'у, с аналогичной функциональностью. Rave из D7, не устраивает его глючность по-мелочи. Или какие апдейты есть? Не предлагайте QReport, отчётность в MS Office. Короче, нужен стабильный мощный генератор отчётов, пригодный для профессиональной работы, проверенный в деле. Вот sir henry чем пользуется, например?

Отправлен: 10.05.2006, 19:42 Вопрос задал: Злоумышленник (статус: 7-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry Здравствуйте, Злоумышленник! Sir Henry для отчетов пользуется исключительно HTML'ем. :) Все основные возможности форматирования - выделения, почеркивания, верхние индексы, таблицы и т.п. - в нем есть. ПРи этом никакие дополнительные компоненты для построения отчета не требуются, т.к. HTML - это чисто текстовый файл. В качестве апдейта для RAVE в D7 могу посоветовать это: ftp://ftpd.borland.com/devsupport/delphi/d7/rave/rave_be_5_0_8.exe Предварительно нужно деинсталлировать старую версию.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 11.05.2006, 08:23 Оценка за ответ: 5 Комментарий оценки: Про HTML я не подумал...

Отвечает: Kazakh Здравствуйте, Злоумышленник! Видел FastReport - круче нету. Ещё слышал про Crystal Reports. Сам ползьзуюсь в основном оффисом и немного хтмл'ом, как сэр Генри :-) --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 8-ой класс) Ответ отправлен: 11.05.2006, 12:17 Оценка за ответ: 4 Комментарий оценки: А я слышал, что Crystal Reports: 1) дорогой, 2) большой для скачки с Инета (на базаре нет его)

Вопрос № 42.669

Здраствуйте эксперты! надо написать базу данных для её работы в сети! В сети два компа! Один из них и сервер и клиент, а другой просто клиент! Какую технологию использовать?! ADO-(+ненадо нечего устанавливать кроме самой программы)(-расшаривать папку,а у компа постоянное соединение с инетом) InterBase (-установка дополнительного ПО и драйверов БД)(-некогда неработал с ним(но это вата)) ИЛИ ваш вариант. Заранее спасибо!

Отправлен: 11.05.2006, 00:56 Вопрос задал: chikanok (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, chikanok! Если работа будет идти с большой базой (в перспективе 500 и более МБ), то безальтернативно должен быть сервер БД (либо InterBase - он в поставке Дельфи на 4 пользователя, либо FireBird - бесплатный аналог, ограничений нет), иначе будут проблемы с нарушением целостности данных из-за индексов, точнее программа буде периодически туфту показывать - доказано 1Ской. В Дельфи все компоненты для работы с IB/FB уже есть, так что ничего дополнительно не потребуется, только сервер (на сервере) и клиентская библиотека на всех рабочих местах - gds32.dll. Если БД маленькая, то на Ваше усмотрение, с чем Вы привыкли работать.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 11.05.2006, 08:43 Оценка за ответ: 5 Комментарий оценки: Спасибо!

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.32 от 03.05.2006