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

Выпуск № 439
от 10.04.2006, 08:35

Вопрос № 39.331

Здраствуй народ. Приспичило в Delphi на WinAPI написать кусок программы создания формы. Облазил, кажется, везде, но полного ответа не нашел. Есть много примеров как создать простую форму. Но меня интересует как настроить своства формы: запрет изменения размеров, запрет системного меню, удаление системных кнопок, модальность и другие свойства формы... Наверное я что то упустил, поэтому может кто знает где об этом можно почитать?

Отправлен: 04.04.2006, 08:44 Вопрос задал: Карасев Алексей Александрович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Cheater76 Здравствуйте, Карасев Алексей Александрович! Kuliba и KD (сборником от Королевства Дельфи, каждый год его выкладывают) Например: Предотвращение изменения размеров формы Взято из статей Borland tech info 2958: Предотвращение изменения размеров формы В некоторых случаях разработчики могут захотеть создать в Delphi форму, содержащую некоторые характеристики диалогового окна. Например, они не хотят позволить конечным пользователям изменять размеры формы в режиме выполнения программы также, как это может программист во вромя разработки. В Delphi не существует свойств или методов для создания формы с такими характеристиками. Но из-за наличия разработанного программного слоя между Delphi и API, программисты могут справиться с этой задачей довольно легко. Следующий пример демонстрирует способ обработки системного сообщения "WM_GetMinMaxInfo", которое позволяет разработчикам ограничивать в режиме выполнения программы размер окна (формы) определенным значением. В этом случае сообщение будет использоваться, чтобы функционально запретить возможность изменения размера окна. Используйте следующий модуль: -------------------------------------------------------------------------------- unit getminmax; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO; procedure WMInitMenuPopup(var Msg: TWMInitMenuPopup); message WM_INITMENUPOPUP; procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); begin inherited; with Msg.MinMaxInfo^ do begin ptMinTrackSize.x:= form1.width; ptMaxTrackSize.x:= form1.width; ptMinTrackSize.y:= form1.height; ptMaxTrackSize.y:= form1.height; end; end; procedure TForm1.WMInitMenuPopup(var Msg: TWMInitMenuPopup); begin inherited; if Msg.SystemMenu then EnableMenuItem(Msg.MenuPopup, SC_SIZE, MF_BYCOMMAND or MF_GRAYED) end; procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin inherited; with Msg do if Result in [HTLEFT, HTRIGHT, HTBOTTOM, HTBOTTOMRIGHT, HTBOTTOMLEFT, HTTOP, HTTOPRIGHT, HTTOPLEFT] then Result:= HTNOWHERE end; end. { Конец модуля} Обработчик системного сообщения "WM_GetMinMaxInfo" в вышеприведенном коде использовался для установления минимального и максимального значения окна TrackSize, где этому значению были присвоены величины, задаваемые в период проектирования формы. На самом деле этого достаточно, чтобы форма не меняла размеров, но мы для примера добавили обработку еще двух сообщений, чтобы ваше приложение выглядело профессионально. Первым сообщением, обрабатываемым нами, было сообщение "WMInitMenuPopup", оно позволяло сделать недоступным пункт системного меню, касающегося возможности изменения размеров окна. Вторым сообщением было "WMNCHitTest", которое служило тем же целям - не создавать впечатления возможности изменения размера, а именно: запрет изменения вида курсора в момент нахождения его на границах окна. Дополнение По-моему, более целесообразно переписать само свойство окна, чем обработчик события WMNCHitTest- заодно и системное меню переписывается: -------------------------------------------------------------------------------- procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style:=Params.Style xor WS_SIZEBOX xor WS_MAXIMIZEBOX; end;

Ответ отправил: Cheater76 (статус: 3-ий класс) Ответ отправлен: 04.04.2006, 10:14

Отвечает: AnD1 Здравствуйте, Карасев Алексей Александрович! Win32 Programmer's Reference => Windows. Подробней не куда, но на английском, еще можно MSDN покопать, но это слишком :))

Ответ отправил: AnD1 (статус: 3-ий класс) Ответ отправлен: 04.04.2006, 13:54

Отвечает: Артём Шегеда Здравствуйте, Карасев Алексей Александрович! Пример в приложении создаёт форму с однострочным EDIT (TEdit) и многострочным EDIT (TMemo). Подробнее о создании окон средствами Win32 API - в справке MSDN(http://msdn.microsoft.com/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/createwindow.asp) и в рассылке по Win32 API Приложение: program Project1; uses SysUtils,Windows,Messages; const Terminate:boolean=false; function WndProc( hwnd:THandle; // handle of window uMsg:DWORD; // message identifier wParam:integer; // first message parameter lParam:integer // second message parameter ):integer; stdcall; var Handle:THandle; s : string; begin case uMsg of WM_CLOSE: begin Handle := GetWindow(hwnd,GW_CHILD); s:=''; While Handle<>0 do begin if s<>'' then s:=s+','; s:=s+IntToHex(Handle,8); Handle := GetWindow(Handle,GW_HWNDNEXT); end; MessageBox(0,@s[1],'Windows list',MB_OK); DestroyWindow(hwnd); PostMessage(0, WM_QUIT, 0, 0); Result:=0; end; WM_CREATE: begin Handle:=CreateWindow( 'EDIT', nil, WS_CHILD or WS_VISIBLE or WS_BORDER or WS_TABSTOP or ES_LEFT, 20,20, 260,20, hwnd, 0, GetWindowLong(hwnd, GWL_HINSTANCE), nil); CreateWindow( 'EDIT', nil, WS_CHILD or WS_VISIBLE or WS_VSCROLL or WS_BORDER or WS_TABSTOP or ES_LEFT or ES_MULTILINE, 20,50, 260,90, hwnd, 0, GetWindowLong(hwnd, GWL_HINSTANCE), nil); SendMessage(Handle,WM_SETFOCUS,hwnd,0); Result:=0; end else Result:=DefWindowProc(hwnd,uMsg,wParam,lParam); end; {case} end; var WndClass : tagWndClass; Wnd : THandle; Msg : tagMsg; begin with WndClass do begin style := CS_HREDRAW or CS_VREDRAW; lpfnWndProc := @WndProc; cbClsExtra := 0; cbWndExtra := 0; hInstance := 0; hIcon := LoadIcon(0,IDI_APPLICATION); hCursor := LoadCursor(0,IDC_ARROW); hbrBackground := CreateSolidBrush(GetSysColor(COLOR_BTNFACE)); lpszMenuName := nil; lpszClassName := 'MainWindowClass'; end; RegisterClass(WndClass); Wnd:=CreateWindow( 'MainWindowClass', 'MainWindow', WS_SYSMENU, 0,0, 300,200, 0,0,0, nil); if Wnd=0 then begin MessageBox(0,'Can''t create main window',nil,MB_OK or MB_ICONERROR); end; ShowWindow(Wnd,SW_SHOWNORMAL); UpdateWindow(Wnd); while GetMessage(Msg,0,0,0) do begin TranslateMessage(Msg); DispatchMessage(Msg); end; end.

Ответ отправил: Артём Шегеда (статус: 5-ый класс) Ответ отправлен: 04.04.2006, 14:09

Вопрос № 39.337

Здрасте. Не знаю, уместно ли здесь задать вопрос по созданию Corba приложений, но если что, вы меня поправите. Есть трехзвенная система с исп. Corba. Простейшая работу с данными уже организована(показать, отредактировать, ApplyUpdates). C помощью каких средств(компонент, методов и т.д.) можно определить, с какого компьютера (IP и/или т.д. ) вызваны методы сервера. Необходимо для журналирования работы сервера(кто, что когда сделал) . СУБД: Firebird сервер приложений: Form1(IBDatabase1), Corba Data Module (IBTransaction1, IBQuery1, DataSetProvider1) клиент: Form1(ClientDataSet1, DataSource1, DBGrid1) Если нужны доп. сведения - скажите. За пример брал статью http://www.megalib.com/books/7/MiltiTierDevelopmentMIDAS.htm

Отправлен: 04.04.2006, 10:16 Вопрос задал: Marcel (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: sir henry Здравствуйте, Marcel! Не думаю, что это относится к Корбе, но обычно в базе данных заводят журнал действий пользователей. Ведь пользователи в обязательном порядке регистрируются в БД, прежде чем начать работу. Поэтому Вы просто составляете список тех действий, которые должны быть в обязательном порядке зарегестрированы и с пмощью компонента TIBEvents пробуете что-нибудь сделать. Этот компонент позволяет получать события, связаные с БД в приложении. Журналирование можно реализовать и внутри БД, с помощью встроеных процедур-триггеров, которые выполняются при вставке, удалении, изменении записи.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 04.04.2006, 10:40 Оценка за ответ: 2 Комментарий оценки: Спасибо, но нет, не годится. Придется заводить (в моем случае) 2 десятка пользователей БД, права и т.д. Я так рассуждаю, что если клиент вызвал создание объекта на стороне сервера, то на сервере в этом объекте должна быть инфа, кто и откуда его создал. Вот эту инфу и хотелось бы выцарапать.

Вопрос № 39.347

Доброго времени суток, Уважаемые эксперты. Создал БД в Access (не очень большую - 120 записей в 16 полях. С формами, запросами и отчётами). А теперь сам вопрос. Можно ли в Delphi 7 создать приложение, с помощью которого, будет осуществляться доступ и работа с этой БД (локально). Но есть одно но. Компьютер, на котором предпологается запускать это приложение, не имеет ни Access, ни Delphi. Может-быть все необходимые компоненты (в т.ч. и БД) можно будет из инсталятора установить. Вообще, реально ли всё это? А если да, буду рад любому практическому совету. Заранее Вас благодарю, Алексей.

Отправлен: 04.04.2006, 11:08 Вопрос задал: Фёдоров Алексей Владимирович (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: sir henry Здравствуйте, Фёдоров Алексей Владимирович! Для начала Вам нужно определится, через какой компонент доступа Вы будете с этой базой данных работать. - через БДЕ - придется дополнительно его и устанавливать, это выкачивать с инета 9,5 МБ, либо нести диск с Дельфи и с него устанавливать одну БДЕ. - через ADO - придется скачивать MDAC с сервера Microsoft, около 5,5 МБ. Однако если на том компьютере уже стоит MS Office, то скорее всего драйвер ADO для Access уже стоит. Посмотреть можно так: создать файл с расширением .udl (название не важно), открыть его щелкнув два раза, и на вкладке "Поставщик данных" посмотреть, присутствует ли в списке "Microsoft Jet 4.0 OLE DB Provider". Не знаю, что у Вас на диске с Дельфи, но на моем диске MDAC есть. - Можно порыть в интернете какой-либо компонент для прямого доступа к БД Access, но его все равно придется устанавливать, только уже к Вам, в Дельфи. Наименее затратное решение - работать через ADO.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 04.04.2006, 12:02 Оценка за ответ: 4 Комментарий оценки: Очень полезная инфа для размышления. Я конечно не такой пока ещё специалист в Delphi, но чувствую разобраться можно.

Отвечает: Проходящий Мимо Здравствуйте, Фёдоров Алексей Владимирович! Присутствия на машине пользователя Delphi и Access вовсе не обязательно. Достаточно иметь набор инсталированых ODBC-драйверов в системе, например ODBCJT32.dll. Доступ осуществляется при помощи компонент, расположеных на закладке палитры ADO: TADOConnection, ТADOQuery и/или TADOTable. Использование того или иного драйвера опредиляется строкой подключения ADOConnection1.ConnectionString. Вообще можна сделать программу универсальней, если хранить строку подключений ADOConnection1.ConnectionString, скажем, во внешнем ini-файле. Тогда данные можна брать откуда угодно, хоть с MS SQL до .dbf включительно. Приложение: procedure Connect; const connStr = 'Provider=SQLOLEDB.1;Data Source=%s;User ID=%s;Password=%s;' + 'Initial Catalog=%s;'; var server, user, passwd, database: string; begin if FMain.ADOConnection1.Connected then FMain.ADOConnection1.Connected := false; server := Edit1.Text; user := Edit2.Text; passwd := Edit3.Text; database :=Edit4.Text; //значения server, user, passwd, database можно считать //со внешнего файла, //connStr - строка подключения FMain.ADOConnection1.ConnectionString := Format(connStr, [server, user, passwd, database]); end; end; --------- Carpe diem!

Ответ отправил: Проходящий Мимо (статус: 1-ый класс) Ответ отправлен: 04.04.2006, 12:15 Оценка за ответ: 4 Комментарий оценки: Эх, жалко! Чувствую инфа грамотная и полезная, но уровнем до неё пока не дотягиваю (нужно ещё матчасть поучить).

Отвечает: AnD1 Здравствуйте, Фёдоров Алексей Владимирович! Да, конечно можно. Необходимо использовать технологию ADO. В нете есть куча инфы про программирование ADO, так же есть хорошие примеры в книгах М.Фленова ("Библия Delphi" - можно скачать в сети, Delphi 2005), Фараоннова (Программирование БД на Delphi или что-то подобное). Если нужено, могу выслать пример использования ADO (4nd1@mail.ru) А на счет работы проги без Delphi и Access'a, то проверно лично на "голой" WinXP - все отлично работает, на счет др. ОС - незнаю, в крайнем случае там нужно будет таскать за собой всего лишь одну dll-ку.

Ответ отправил: AnD1 (статус: 3-ий класс) Ответ отправлен: 04.04.2006, 13:48 Оценка за ответ: 4 Комментарий оценки: Дельно, конкретно! Спасибо! Теперь хоть буду знать, что читать, а то у меня есть "Иллюстрированный самоучитель по Delphi 7 для начинаюших"? но там сами понимаете...

Отвечает: Злоумышленник Здравствуйте, Фёдоров Алексей Владимирович! В дополнение к предыдущим ответам. Я постоянно использую в Delphi именно Access-формат таблиц через ADO (поставщик OLE DB - Microsoft Jet4.0 OLE DB Provider). Проги великолепно работают в Win98/Me/2k/XP, на машинах, на которых Office'а нет и не было. Причём в Win98 работал формат Access2000. Я где-то читал, что в современных OS от M$ драйвер для доступа к *.mdb'шникам, который тебе нужен, уже встроен.

Ответ отправил: Злоумышленник (статус: 5-ый класс) Ответ отправлен: 04.04.2006, 15:53

Вопрос № 39.350

Как проиграть один и тотже wav-файл с помощью TMediaPlayer? Поясню. Допустим, есть два TmediaPlayer и в каждом установлено одно и тоже имя файла. Если запустить первый - играется, запустить второй - ошибка. Как решить? P. S. MediaPlayer - потому, что нужно отслеживать момент окончания проигрывания, поэтому playSound не предлагать. И, делать копию исходного файла - тоже. Спасибо

Отправлен: 04.04.2006, 12:06 Вопрос задал: mvp (статус: 10-ый класс) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: AnD1 Здравствуйте, mvp! Я Вас огорчу, но предложенным спосбом никак :(. Это проблема в самой windows => TMediaPlayer'om этого не добьешься (он завязан на виндовых lib'ах), поэтому нужно либо использовать сторонние компоненты(см на torry.net ) или придумавать др. способы

Ответ отправил: AnD1 (статус: 3-ий класс) Ответ отправлен: 04.04.2006, 14:04 Оценка за ответ: 3

Отвечает: Артём Шегеда Здравствуйте, mvp! Боюсь, что мой ответ может не понравится (просто я не знаю, какие ещё возможности используемого TMediaPlayer'а ещё потребуются), но по исходным данным лучшим решенеим стенет отказ от использования этой компоненты и переход на TWavSound (http://www.torry.net/vcl/mmedia/audio/wavsound.zip)/ Вообще, многие стандартные компоненты из поставки BorlandDelphi не соответствуют требованиям программиста или обладают излишней избыточностью. Поэтому рекомендую ещё посетить и эту страничку: http://www.torry.net/pages.php?id=167 - наверняка найдётся что-то интересное...

Ответ отправил: Артём Шегеда (статус: 5-ый класс) Ответ отправлен: 04.04.2006, 14:38 Оценка за ответ: 4

Отвечает: Delphin Здравствуйте, mvp! Что за ошибка? Только что проверил у себя с TMediaPlayer и все ок. Слушай, помоему PlaySound как-то можно отследить конец... --------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: AvePassion@GMail.Com

Ответ отправил: Delphin (статус: Студент) Ответ отправлен: 04.04.2006, 15:44

Отвечает: Ерёмин Андрей Здравствуйте, mvp! Никаких премудростей не нужно. Обрабатываем событие OnNotify у TMediaPlayer: procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin if MediaPlayer1.NotifyValue = nvSuccessful then begin { Воспроизведение закончилось } end; end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 04.04.2006, 17:54 Оценка за ответ: 4

Отвечает: Mrdimon Здравствуйте, mvp! Можно предложить отслеживать запуск второй копии программы :)

Ответ отправил: Mrdimon (статус: 1-ый класс) Ответ отправлен: 08.04.2006, 12:05

Вопрос № 39.360

Уважаемфе Эксперты! У меня к Вам вопрос, можно ли создать шаблон MS Word (*.dot) с помощью Дельфи как написанный на VBA (VisualBasic) заранее спасибо

Отправлен: 04.04.2006, 15:03 Вопрос задал: ERA (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Проходящий Мимо Здравствуйте, ERA! Не знаю, что имелось ввиду под "как написанный на VBA", но в качестве шаблонов я использовал обыкновенный файл .doc, коим в принципе шаблон и является, который потом "сохранял как..." в нужном месте ы под нужный именем Пример: procedure SendRecToWord(PathShablon: string); var Shablon: OleVariant; newName: string; begin Shablon := PathShablon; if not FileExists(Shablon) then exit; NewName := 'c: ew.doc'; try WordApplication1.Connect; if GetVersionWord(WordApplication1) < 9 then begin MessageDlg('Нужен MS Word 2000/XP или выше', mtError, [mbOk], 0); exit; end; except MessageDlg('Word не установлен!', mtError, [mbOk], 0); WordApplication1.Disconnect; exit; end; try //отключить проверку орфографии WordApplication1.Options.CheckSpellingAsYouType := false; WordApplication1.Options.CheckGrammarAsYouType := false; WordApplication1.Visible := True; WordApplication1.Caption := 'My document'; //Открыть шаблон документа WordApplication1.Documents.Open(Shablon, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); //Связать компонент з существующим интерфейсом WordDocument1.ConnectKind := ckAttachToInterface; WordDocument1.ConnectTo(WordApplication1.ActiveDocument); {здесь что-то делаем} WordDocument1.SaveAs(NewName); finally WordApplication1.Disconnect; end; end; --------- Carpe diem!

Ответ отправил: Проходящий Мимо (статус: 1-ый класс) Ответ отправлен: 04.04.2006, 15:37

Вопрос № 39.367

Добрый день ! Вопрос я знаю что в Delphi 7 есть такая комманда Readin ! Ну так в учебнике написанно ! У меня Delphi 2005 ! Но когда я ввожу Readin он выдаёт что комманда неопознана ! Есть ли её замена ??? С ней очень удобно различные строки читать из файла ! read и readln не предлогать уже пробовали ! С уважением, Zmeu .

Отправлен: 04.04.2006, 16:11 Вопрос задал: Tamashev Denis M (статус: 2-ой класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Ataman N. N. Здравствуйте, Tamashev Denis M! Первый раз слышу о такой команде.В каком учебнике Вы ее вычитали? Возможно там была опечатка?

Ответ отправил: Ataman N. N. (статус: 10-ый класс) Ответ отправлен: 04.04.2006, 16:17 Оценка за ответ: 5 Комментарий оценки: Да в учебнике опечатка ! Sorry !

Отвечает: Проходящий Мимо Здравствуйте, Tamashev Denis M! Есть комманда ReadInt! Если не работает readln, сделай ссылку на модуль, где реализована функция System.Readln. Возможно, ты имееш ввиду метод какого-то объекта? Если нужно прочитать строки из файла, воспользуйся объектом TStringList. В нем есть необходимые методи чтения и записи в файл LoadFromFile и SaveToFile. --------- Carpe diem!

Ответ отправил: Проходящий Мимо (статус: 1-ый класс) Ответ отправлен: 04.04.2006, 16:32 Оценка за ответ: 5 Комментарий оценки: в учебнике опечатка ! Sorry !

Отвечает: AnD1 Здравствуйте, Tamashev Denis M! Скорее всего в учебнике была опечатка, команды Readin - нет и не было (и, возможно, никогда не будет ;) ). Если что-то близкое - то это ReadLn. Или вы что-то путаете.

Ответ отправил: AnD1 (статус: 3-ий класс) Ответ отправлен: 04.04.2006, 17:14 Оценка за ответ: 5 Комментарий оценки: в учебнике опечатка ! Sorry ! А кстати если кто хочет посмотреть на этот учебник то вот он : Учебник по Delphi 7 для начинающих С сайта www.PowerBuilder.sbn.bz

Вопрос № 39.372

Здраствуйте! Вопрос такой: у меня два типизированных файла. Как в StringGrid можно листать содержимое второго файла. Например, первый файл содержит код и наименование чего-либо. При пролистывание первого файла, в StringGrid должно показываться только то, что содержит каждый код в первом файле по отдельности.

Отправлен: 04.04.2006, 16:58 Вопрос задал: BeTepoK_20 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Артём Шегеда Здравствуйте, BeTepoK_20! В приложении - Unit1.dfm и Unit1.pas Надеюсь, файлы GroupData.dat и ItemData.dat уже существуют Приложение: object Form1: TForm1 Left = 192 Top = 116 AutoScroll = False BorderIcons = [] Caption = 'Form1' ClientHeight = 314 ClientWidth = 457 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.style="[]" OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object StringGrid1: TStringGrid Left = 8 Top = 8 Width = 217 Height = 297 ColCount = 3 TabOrder = 0 OnSelectCell = StringGrid1SelectCell end object StringGrid2: TStringGrid Left = 232 Top = 8 Width = 217 Height = 297 ColCount = 3 FixedCols = 0 TabOrder = 1 end end ------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; StringGrid2: TStringGrid; procedure FormCreate(Sender: TObject); procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type TGroupRecord = record ID : integer; Name : string[20]; Comment : string[20]; end; TItemRecord = record GroupID : integer; Name : string[20]; Count : integer; Price : real; end; procedure TForm1.FormCreate(Sender: TObject); var f1 : File of TGroupRecord; GroupRecord : TGroupRecord; cnt : integer; begin AssignFile(f1,'GroupData.dat'); Reset(f1); try cnt := 0; StringGrid1.Enabled := not EOF(f1); while not EOF(f1) do begin inc(cnt); StringGrid1.RowCount := cnt+1; Read(f1,GroupRecord); StringGrid1.Cells[0,cnt-1] := IntToStr(GroupRecord.ID); StringGrid1.Cells[1,cnt-1] := GroupRecord.Name; StringGrid1.Cells[2,cnt-1] := GroupRecord.Comment; end; finally CloseFile(f1); end; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var f2 : File of TItemRecord; ItemRecord : TItemRecord; cnt : integer; GroupID : integer; begin GroupID := StrToInt(StringGrid1.Cells[0,ARow]); StringGrid2.RowCount := 2; StringGrid2.Cells[0,cnt-1] := ''; StringGrid2.Cells[1,cnt-1] := ''; StringGrid2.Cells[2,cnt-1] := ''; AssignFile(f2,'ItemData.dat'); Reset(f2); try cnt := 0; StringGrid2.Enabled := not EOF(f2); while not EOF(f2) do begin Read(f2,ItemRecord); if ItemRecord.GroupID=GroupID then begin inc(cnt); StringGrid2.RowCount := cnt+1; StringGrid2.Cells[0,cnt-1] := ItemRecord.Name; StringGrid2.Cells[1,cnt-1] := FloatToStrF(ItemRecord.Price,ffCurrency,5,2); StringGrid2.Cells[2,cnt-1] := IntToStr(ItemRecord.Count); end; end; finally CloseFile(f2); end; end; end.

Ответ отправил: Артём Шегеда (статус: 5-ый класс) Ответ отправлен: 04.04.2006, 19:13

Вопрос № 39.375

Здраствуйте уважаемые эксперты! Скачал с инета кучу всяких кнопок ,скинов и всего разного.И тут возник вопрос: Как это все использовать в самом Делфи? Пробавал как там написано,не получается. Раскажите пожалуйсто,желателно на примере. Зарание спасибо! P.S. и как оценки ставить,что обидно не было?

Отправлен: 04.04.2006, 17:39 Вопрос задал: Lamer_Brother (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Артём Шегеда Здравствуйте, Lamer_Brother! Звонит пациент доктору: "Доктор, я что-то съел и теперь у меня живот болит :(" На что ему доктор: "А вы анальгинчику глотните - болеть перестанет". Через сутки пациент оказался в реанимации с прободной язвой :(((( Попробуем лечить по сценарию этого анекдота :)) Скажем так... Компонент, скинов, и прочей мишуры для Delphi - как грязи... Что имеено ты скачал - неизвестно. Лично я пользуюсь BSF (Almediadev Visual Component Library BusinessSkinForm) - более-менее пристойный скиновый набор компонент. Устанавливается просто: открываешь dpk-файл, соответствующий твоей версии Delphi, компилируешь - получаешь 3 новуых закладки в палитре: BusinessSkinForm VCL, BusinessSkinForm DB VCL, BusinessSkinForm VCL Dialogs (так, по крайней мере, в V2.54) Используется следующим образом: на обычную форму бросается компоненты bsBusinessSkinForm1: TbsBusinessSkinForm, bsSkinData1: TbsSkinData и bsStoredSkin1: TbsStoredSkin. Перевязываются между собой свойствами SkinData и StoredSkin. Всё, форма уже облагорожена, осталось привязать скин (на сайте разработчика есть библиотека скинов, штук эдак 30...), для этого назначbм bsStoredSkin1.FileName значение <путь к скину>skin.ini Теперь бросаем на форму компоненты из закладки BusinessSkinForm VCL и не забываешь назначать им свойство SkinData Вот, собственно и всё. Думаю, по такому же принципу работают другие шкурообразные наборы визуальных компонент

Ответ отправил: Артём Шегеда (статус: 5-ый класс) Ответ отправлен: 04.04.2006, 18:35

Отвечает: AnD1 Здравствуйте, Lamer_Brother! К каждому (ну или почти к каждому ;) ) должен быть файл .dpk (Delphi Package) Открываете его, по умолчанию, он открывается в Delphi (если нет - то запустите делфю, и откройте этот файл из неё), затем появляется окошко - где есть кнопочка Install (или Установка - в рус. версии), остается лишь нажать на нее, и если Вы скачали компоненты под Вашу версию Delphi, то они должны нормально (без ошибок) установиться, найти их можно на палитре компонентов (обычно они появляются в конце). Если такого файла к компоненту нет, а есть только сорцы (pas) то их нужно ставить вручную - "Компонент" => "Установить компонент" => далее выбираете файл модуля и далее дважды щелкаете "ОК". Если компонент не визуальный, а к нему идут только сырцы (pas и/или dcu) то их нужно кинуть в C:Program FilesBorlandDelphi7Lib (для 7 дельфи) и затем подключать через uses.

Ответ отправил: AnD1 (статус: 3-ий класс) Ответ отправлен: 04.04.2006, 18:37

Вопрос № 39.383

Добрый вечер ! Вопрос я сегодня задал но поскольку в учебнике опечатка задал неправильно ! Вот ешё вопрос : Как можно заблокировать рабочий стол в windows XP ! Даже несовсем заблокировать ! А при перезагрузке выводица InputQuery которое требует пароль ! Мне нужно чтобы пользователь несмог ничего зделать пока невведёт пароль ! Ваши предложения ? Подходит даже вариант с растягиванием формы на весь экран ! Но она у меня почемуто не на весь экран растягиваеца а половина уходит за границу половино остаёца ! С уважением, Zmeu

Отправлен: 04.04.2006, 20:39 Вопрос задал: Tamashev Denis M (статус: 2-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: AnD1 Здравствуйте, Tamashev Denis M! Можно например так - см. приолжение - код котороый может включать/отключать кнопку "пуск" следовательно юзер не подберется к ребуту компа :), затем нужно отключить 3 пальца (Ctrl+Alt+Del и еще Ctrl+Shift+Esc) - как это сделать, можно найти в любом из FAQов. Остается лишь программный ребут компа, здесь можно перехватить вызов API отвечающий за ребут (точно не помню какая-именно), и если уже перехватить этот вызов, то можно предыдущие методы опустить (кажется это примерно делается так GetMessage(...) сообщение WM_QUIT, подробнее об этом можно почитать в справке Delphi). Ну вроде все, больше ничего придумать не могу. И еще: в справке с делфей поставляется отличный хелп - "Win32 Programmer's Reference", в нем много чего интересного ;)). Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private StartBtnWnd, StartBtnBmp: hWnd; public end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin //определяем ендл кнопки пуск StartBtnWnd:=FindWindow('Shell_TrayWnd', nil); StartBtnBmp:=FindWindowEx(StartBtnWnd, 0,'Button', nil); end; procedure TForm1.Button1Click(Sender: TObject); begin //отключить кнопку пуск EnableWindow(StartBtnWnd, false); end; procedure TForm1.Button2Click(Sender: TObject); begin //включить кнопку пуск EnableWindow(StartBtnWnd, true); end; procedure TForm1.Button3Click(Sender: TObject); begin //Спрятать панель ShowWindow(StartBtnWnd, SW_HIDE); end; end.

Ответ отправил: AnD1 (статус: 3-ий класс) Ответ отправлен: 05.04.2006, 18:18 Оценка за ответ: 4 Комментарий оценки: Ну насчёт кнопки пуск и блокирование клавишь это я знаю и уже вписал в програму ! Я хотел в реестре заменить что-б первым загружалась программа ! И при вводе превельного пароля грузился explorer.exe но ничего невышло !

Отвечает: Mrdimon Здравствуйте, Tamashev Denis M! В приложении листинг программы, которая написана на скорую руку. Нельзя незаметить факт, что она работает КРАЙНЕ КОРЯВО, но, надеюсь, что для раскачки поможет! :-) Следует обратить Ваше внимание на небольшой, но очень важный момент - ГДЕ ВЫ СОБИРАЕТЕСЬ ХРАНИТЬ ПАРОЛИ??????? Кроме того, не забывайте, что хранить пароли в открытом виде - по меньшей мере глупо. Удачи! p.s. UserName = Tamashev Denis M Password = RusFaq Приложение: //*********************************** unit UMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses UEnterPassword; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var ScreenDC: HDC; canvas:Tcanvas; begin ScreenDC:=GetDC(0); Canvas:=TCanvas.Create(); canvas.Handle:=ScreenDC; Width:=Screen.Width; Height:=Screen.Height; Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height), canvas,Rect(0,0,Screen.Width,Screen.Height)); Releasedc(0,ScreenDC); Canvas.Free; Timer1.Enabled := true; end; procedure TForm1.FormActivate(Sender: TObject); begin ShowWindow(Application.Handle,sw_Hide); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Form2.Show; end; end. //*********************************************** unit UEnterPassword; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Mask; type TForm2 = class(TForm) MaskEdit1: TMaskEdit; LabeledEdit1: TLabeledEdit; Label1: TLabel; Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormActivate(Sender: TObject); procedure LabeledEdit1Change(Sender: TObject); procedure MaskEdit1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; UserName, Password : string; implementation uses UMain; {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin LabeledEdit1.Clear; MaskEdit1.Clear; LabeledEdit1.EditLabel.Caption := 'Имя пользователя '; Label1.Caption := 'Пароль '; MaskEdit1.PasswordChar := #1; Button1.Caption := 'Войти'; Button2.Caption := 'Отмена'; Form2.ActiveControl := LabeledEdit1; end; procedure TForm2.FormActivate(Sender: TObject); begin Form1.Timer1.Enabled := false; end; procedure TForm2.LabeledEdit1Change(Sender: TObject); begin UserName := LabeledEdit1.Text; end; procedure TForm2.MaskEdit1Change(Sender: TObject); begin Password := MaskEdit1.Text; end; procedure TForm2.Button1Click(Sender: TObject); begin if (UserName = 'Tamashev Denis M') and (Password = 'RusFaq') then begin LabeledEdit1.Text := 'Здравствуйте! '; MaskEdit1.PasswordChar := #0; MaskEdit1.Text := Password; UserName := ''; Password := ''; end else beep; end; procedure TForm2.Button2Click(Sender: TObject); begin UserName := ''; Password := ''; MaskEdit1.PasswordChar := #1; LabeledEdit1.Clear; MaskEdit1.Clear; end; end.

Ответ отправил: Mrdimon (статус: 1-ый класс) Ответ отправлен: 08.04.2006, 12:01 Оценка за ответ: 4

Вопрос № 39.399

Нужно сделать следующее. Как сделать кнопку нажатой? T.e. её надо нажать - она остается нажатой. Потом надо ещё раз нажать - теперь она отжатая. И чтобы в свойствах этой кнопки было показано типа: нажата - True, отжата - False. Есть ли такой компонент на Delphi 7.0? P.S. Можно конечно без кнопки обойтись - есть другие средства, но всё же. Заранее всем...

Отправлен: 05.04.2006, 00:39 Вопрос задал: AlexD (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Timoshin A.B. Здравствуйте, AlexD! У кнопки SpeedButton есть свойство Down=False/True. --------- СЭ отбивает желание, отвечать на вопросы посетителей...

Ответ отправил: Timoshin A.B. (статус: 10-ый класс) Ответ отправлен: 05.04.2006, 00:52

Отвечает: Лучников Ю.В. Здравствуйте, AlexD! Конечно есть;) TSpeedButton с вкладки Additional. Чтобы она вела себя так, как вы описали, нужно сделать следующее: 1. Установить свойство TSpeedButton.AllowAllUp = True; 2. Установить свойство TSpeedButton.GroupIndex = >0 (больше нуля) Для того, чтобы назначить кнопке какую-либо группу. Чтобы проверить состояние кнопки, воспользуйтесь свойством TSpeedButton.Down, которое возвращает True если кнопка нажата, иначе False. Успехов!

Ответ отправил: Лучников Ю.В. (статус: *Администратор) Россия, Киров WWW: Чат Кировской молодежи ICQ: 176308580 ---- Ответ отправлен: 05.04.2006, 00:57

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