Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2010, 15:58   #1
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию Прозрачность Alpha и ini

У меня 2 вопроса

1-й)Как сделать форму полностью прозрачной а компоненты на ней такие как Label и Button были не прозрачны???

2-й)Есть ini файл в котором такие строки

[setting]
Wight1=800
Height1=600
и т.д

как их считать и вывести в Form1.Wight:=Wight1; и Form1.Height:=Height1; ??? с файлами сталкиваюсьь впервые так что нужна помощь
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Старый 22.04.2010, 16:21   #2
nXs
Форумчанин
 
Регистрация: 26.02.2010
Сообщений: 126
По умолчанию

По второму вопросу:
Код:
var
INF:TIniFile;
begin
INF:=TIniFile.Create(ExtractFileDir(paramstr(0))+'\my.ini');
Form1.Width:=INF.ReadInteger('seting', 'width', 100);
Form1.Heigth:=INF.ReadInteger('setting', 'Heigth', 100);
INF.Free;
end;
nXs вне форума Ответить с цитированием
Старый 22.04.2010, 16:38   #3
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

1- свойство формы transparentcolorvalue в цвет прозрачности и transparentcolor в true, компонентам другой цвет, отличный от формы или что-тоже самое поиграйтесь SetLayeredWindowAttributes
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowLong(Handle,
               GWL_EXSTYLE,
               GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);


 SetLayeredWindowAttributes(Handle,
                            rgb(0,0,0), // цвет прозрачности
                            0,          // величина прозрачности
                            {LWA_ALPHA or} LWA_COLORKEY); // флаг для формы
или еще пример OSD 1 2
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 22.04.2010, 16:38   #4
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
1-й)Как сделать форму полностью прозрачной а компоненты на ней такие как Label и Button были не прозрачны???
Код:
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Color:=0;
TransparentColorValue:=0;
TransparentColor:=True;
End;
На второй ответили.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 22.04.2010, 16:38   #5
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию

НЕРАБОТАЕТ((
Вложения
Тип файла: rar 11.rar (2.8 Кб, 7 просмотров)
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Старый 22.04.2010, 16:48   #6
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Сообщение от Alex2009 Посмотреть сообщение
НЕРАБОТАЕТ((
Вы забыли поставить "\" тут:
Код:
INF:=TIniFile.Create(ExtractFileDir(paramstr(0))+'\my.ini');
И про точные названия
Form1.Width:=INF.ReadInteger('setting', 'width', 100);
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 22.04.2010, 17:08   #7
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию

Еще вопрос как идет в ini сохранение параметров в setting таких как width и Heigth то есть при закрытии программы должно сохранять эти данные? Извините за тупость просто еще рас говорю что с файлами не работал
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Старый 22.04.2010, 17:10   #8
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

во первых, напрямую с файлом вы и не работаете.
в обработчике OnDestroy(onClose как вариант) пишете сохранение этих параметром и все.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 22.04.2010, 17:12   #9
nXs
Форумчанин
 
Регистрация: 26.02.2010
Сообщений: 126
По умолчанию

Цитата:
Сообщение от Alex2009 Посмотреть сообщение
Еще вопрос как идет в ini сохранение параметров в setting таких как width и Heigth то есть при закрытии программы должно сохранять эти данные? Извините за тупость просто еще рас говорю что с файлами не работал
Код:
INF.WriteInteger('setting', 'Width', Form1.Width);
nXs вне форума Ответить с цитированием
Старый 22.04.2010, 17:24   #10
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию

Код:
Form1.Width:=INF.ReadInteger('setting', 'width', 100);
за что это отвечает???
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Alpha skins dolphin705 Компоненты Delphi 36 27.12.2010 11:10
Как пересмотреть все секции в INI.ini ? iskurt Помощь студентам 1 31.01.2010 07:48
Cos(alpha) на СИ++ Рустам Помощь студентам 7 23.11.2008 15:30
Alpha Controls v3.56 Михаил Юрьевич Компоненты Delphi 3 01.05.2008 15:52