Вообще многое бы отдал за небольшой курс уроков, даже если бы и на инглише. Хотя бы основы)
==========
Tutorial из SVN смотрели ? Там даже на русском. Правда, там не азы, а серьезная БД-программа.
Помогите начинающему
Модератор: Модераторы
-
debi12345
- долгожитель
- Сообщения: 5761
- Зарегистрирован: 10.05.2006 23:41:15
- Откуда: Ташкент (Узбекистан)
nagash писал(а):1. Как убрать возможность максимизировать окно?
Можно сделать тупо - в событии OnReSize формы :
Код: Выделить всё
procedure tmainfo.onresize(const sender: TObject);
begin
(sender as tmainfo).bounds_cx:= 550;
(sender as tmainfo).bounds_cy:= 450;
// если нужно держать позицию - аналогично для bounds_x/y
end;
В MSEgui есть защита от рекурсии событий, напрашивающейся в данном способе.
Как по-науке - спрашивайте у автора в ньюс-конференции.
nagash писал(а):2. Как создать событие типа onmouseover? Т.е. мне нужно, чтобы при наведении курсора на кнопку, к примеру, чуть ниже высвечивались комментарии в tlabel.
Надо использовать событие OnChildMouseEvent формы, на которой эта кнопка находится (потому что в MSEgui только форма является окном, все остальное - просто нарисованные картинки поверх этого окна - поэтому только форма реально принимает события )
Код: Выделить всё
procedure tmainfo.cmevent(const sender: twidget; var info: mouseeventinfoty);
begin
if sender = tbutton4 then begin // ТА САМАЯ КНОПКА ?
case info.eventkind of // КАКОЕ КРЫСИНОЕ СОБЫТИЕ ?
ek_mouseenter: // ЗАБЕЖАЛИ В КНОПКУ
tlabel2.caption:= 'within tbutton4';
ek_mouseleave: // ВЫБЕЖАЛИ
tlabel2.caption:= 'out of tbutton4';
end;
end;
end;
nagash писал(а):А тут на мои вопросы никто не ответит?
Людям реально некогда. Проявляйте инициативу, сами разбирайтесь, доку пишите !
2 debi12345
Спасибо, с этим разобрался.
Мне тоже реально некогда, это во-первых)
А во-вторых я не думаю что могу быть компетентным в данном вопросе, я умею писать только консольные программы, об интерфейсе имею весьма смутное и приблизительное понятие. И как такой человек как я может писать мануалы по mseide?
За помощь реально спасибо, очень помогло.
Спасибо, с этим разобрался.
Мне тоже реально некогда, это во-первых)
А во-вторых я не думаю что могу быть компетентным в данном вопросе, я умею писать только консольные программы, об интерфейсе имею весьма смутное и приблизительное понятие. И как такой человек как я может писать мануалы по mseide?
За помощь реально спасибо, очень помогло.
(WinXP, SVN 1722, fpc2.2.0)
Очередной затык на пустом месте
Работаю с SQLite(3.4 или 3.5 - без разницы). В базе две таблицы: sostblud и prods. На датамодуль кидаю и активирую SQLiteConnection (conn), transaction, SQLScript для "attach database". Добавляю sqlquery, подключаю его к conn, в свойство SQL добавляю простой запрос:
нажимаю Test и получаю Exception: "conn:near "a" :syntax error"
если убираю alias и меняю запрос на
то Exception: "conn:near "left":syntax error"
Этот же запрос отрабатывает на SQLite и sqliteadmin без ошибок
Получается, что база не открывается, не пойму?
PS. Делаю руководствуясь "roznitsa_new"
Очередной затык на пустом месте
Работаю с SQLite(3.4 или 3.5 - без разницы). В базе две таблицы: sostblud и prods. На датамодуль кидаю и активирую SQLiteConnection (conn), transaction, SQLScript для "attach database". Добавляю sqlquery, подключаю его к conn, в свойство SQL добавляю простой запрос:
Код: Выделить всё
select a.kodsost, a.kodblud, b.nameprod, a.kolprod
from sostblud a
left outer join prods b
on a.kodprod = b.kodprod;нажимаю Test и получаю Exception: "conn:near "a" :syntax error"
если убираю alias и меняю запрос на
Код: Выделить всё
select kodsost, kodblud, nameprod, kolprod
from sostblud
left outer join prods
on sostblud.kodprod = prods.kodprod;то Exception: "conn:near "left":syntax error"
Этот же запрос отрабатывает на SQLite и sqliteadmin без ошибок
Получается, что база не открывается, не пойму?
PS. Делаю руководствуясь "roznitsa_new"
fpc2.2.0, mseide из SVN 1722
Мне самому не понятно. Вместо такого запроса делаю простой запрос из одной таблицы (пробовал с каждой из двух), работает, ставлю left outer join - exception. В общем - засада.
положил архив проекта http://ifolder.ru/4018005 , он 178кб, гляньте, может свежий взгляд на что-либо наткнется
В дата модуле запрос "querysost" в нем - SQL стринглист
Мне самому не понятно. Вместо такого запроса делаю простой запрос из одной таблицы (пробовал с каждой из двух), работает, ставлю left outer join - exception. В общем - засада.
положил архив проекта http://ifolder.ru/4018005 , он 178кб, гляньте, может свежий взгляд на что-либо наткнется
В дата модуле запрос "querysost" в нем - SQL стринглист
Патч использовал (http://freepascal.ru/forum/viewtopic.php?t=2706), сегодня установил fpc2.2.0 release. Exception остался.