Вопрос № 71181: Здравствуйте.
Вот есть один вопрос:
Как в Delphi добиться прозрачного эффекта при старте окна?...Вопрос № 71203: Доброго времени суток!
Объясните пожалуйста как в открыть и получить информацию из *.dbf.
Желательно пошагово. Использую BDE, но можно и ADO(некогда не пользовался). Очень нужно, а с базами я ещё не успел подружиться.
Или дайте линк на но...
Вопрос № 71.181
Здравствуйте.
Вот есть один вопрос:
Как в Delphi добиться прозрачного эффекта при старте окна?
Отправлен: 16.01.2007, 12:19
Вопрос задал: Freeze (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: monah
Здравствуйте, Freeze!
В инспекторе обьектов (Вызывается по F11) для формы установите значения для
AlphaBlend:=True;
AlphaBlendValue:=степень прозрачности; при 255 непрозрачно при 0 окно вообще не видно.
--------- festina lente
Ответ отправил: monah (статус: Студент)
Ответ отправлен: 16.01.2007, 12:32
Отвечает: Gh0stik
Здравствуйте, Freeze!
Если Вы хотите добиться эффекта прозрачности при старте то достаточно создать такой обработчик:
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle, 2000, AW_BLEND or AW_ACTIVATE);
end;
где 2000 интервал задержки для лучшего эффекта...
=P.S.=========
возможные параметры:
AW_SLIDE Использует слайдовую анимацию. По умолчанию используется анимационный ролик (прокрутка мультипликации). Этот флажок игнорируется тогда, когда пользуется с флажком AW_CENTER.
AW_ACTIVATE Активизирует окно (при показе окна). Не используйте это значение совместно с AW_HIDE.
AW_BLEND Использует эффект постепенного изменения прозрачности окна. Этот флажок может быть использован только в том случае, если параметр hwnd - окно верхнего уровня.
AW_HIDE Скрывает окно. По умолчанию, окно показывается на экран.
AW_CENTER Делает вид окна сжатым в точку, если используется флажок AW_HIDE или раскрытым из точки до полного размера, если флажок AW_HIDE не используется. Различные предписывающие флаги не имеют никакого действия.
AW_HOR_POSITIVE Анимирует окно слева направо. Этот флажок может быть использован с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND.
AW_HOR_NEGATIVE Анимирует окно справа налево. Этот флажок может быть использован с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND.
AW_VER_POSITIVE Анимирует окно сверху вниз. Этот флажок может быть использованы с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND.
AW_VER_NEGATIVE Анимирует окно снизу вверх. Этот флажок может быть использован с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 16.01.2007, 23:14
Вопрос № 71.203
Доброго времени суток!
Объясните пожалуйста как в открыть и получить информацию из *.dbf.
Желательно пошагово. Использую BDE, но можно и ADO(некогда не пользовался). Очень нужно, а с базами я ещё не успел подружиться.
Или дайте линк на нормальные книги или статьи - я ничего нормальног не нашёл, только обрывки кода.
Надеюсь на вашу помощь.
Отправлен: 16.01.2007, 15:07
Вопрос задал: Prowler (статус: 2-ой класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Маренич Владимир
Здравствуйте, Prowler!
1. На форму опускаем компонент TTable (Table1)
2. Устанавливаем DatabaseName = <путь к базе данных> (Например, 'C:MyDB')
3. TableName = <имя файла> (Например, 'MyTable.DBF')
4. Устанавливаем свойство Exclusive в TRUE, если нужен "монопольный" доступ к файлу. Иначе FALSE.
5. В коде (например, при нажатии на Button1:
procedure Form1Button1Click(Sender: TObject);
begin
//Например, надо перебрать все строки и что-то с ними сделать
Table1.Open; //открываем файл
try
while not Table1.Eof do
begin
//делаем с текущей записью что-то
Table1.Next;
end;
finally
Table1.Close; //закрываем файл
end;
end;
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 18.01.2007, 11:23 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Хоть кто-то откликнулся. От примера теперь буду плясать.
