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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2011, 09:45   #1
Pein
 
Регистрация: 23.02.2009
Сообщений: 5
Счастье Неактивная "бледная" форма

Всем привет. Как сделать так, что бы форма всегда была неактивного цвета, даже когда она активна? Пример. Вот активная форма:

А мне нужно что бы форма всегда имела вот такой неактивный цвет:


И ещё, как сделать лёгкое свечение вокруг шрифта на подобии этого:

Последний раз редактировалось Pein; 08.04.2011 в 09:48.
Pein вне форума Ответить с цитированием
Старый 09.04.2011, 13:46   #2
dmitriegorovih
Ещё не
Форумчанин
 
Аватар для dmitriegorovih
 
Регистрация: 04.01.2010
Сообщений: 517
По умолчанию

Здравствуйте вот как можно это сделать только закрытие почему то не работает но нечего я думаю вы это решите
вот так это можно сделать добавляете новую форму и пишите следующий код
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure wmsetfocus(var msg:Tmessage); message messages.WM_SETFOCUS;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 uses unit2;
{$R *.dfm}


procedure TForm1.wmsetfocus(var msg: Tmessage);
begin
windows.SetActiveWindow(form2.Handle);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Left:=form2.Width*(-1);
end;

end.
Только мне к вам встречный вопрос как вам удалось сделать вот такую полностью полу прозрачную форму?
Воображение важнее, чем знания. (Albert Einstein)
dmitriegorovih вне форума Ответить с цитированием
Старый 09.04.2011, 14:03   #3
Тутонхамон
Пользователь
 
Аватар для Тутонхамон
 
Регистрация: 09.02.2011
Сообщений: 43
По умолчанию

Цитата:
как вам удалось сделать вот такую полностью полу прозрачную форму?
Код:
     Form1.AlphaBlend:=True;         //включить прозрачность
     Form1.AlphaBlendValue:=150;   //0..255
Тутонхамон вне форума Ответить с цитированием
Старый 09.04.2011, 14:12   #4
eduard93
Форумчанин
 
Регистрация: 06.12.2010
Сообщений: 300
По умолчанию

Цитата:
Сообщение от dmitriegorovih Посмотреть сообщение
Только мне к вам встречный вопрос как вам удалось сделать вот такую полностью полу прозрачную форму?
В старших версих делфи у формы есть свойство GlassFrame.

Цитата:
И ещё, как сделать лёгкое свечение вокруг шрифта
Там же у лебелов есть свойство GlowSize.
eduard93 вне форума Ответить с цитированием
Старый 09.04.2011, 15:39   #5
dmitriegorovih
Ещё не
Форумчанин
 
Аватар для dmitriegorovih
 
Регистрация: 04.01.2010
Сообщений: 517
По умолчанию

Цитата:
В старших версих делфи у формы есть свойство GlassFrame
Понятно. а я на Delphi 7 сижу и думаю как это сделать ))
Воображение важнее, чем знания. (Albert Einstein)
dmitriegorovih вне форума Ответить с цитированием
Старый 13.04.2011, 23:34   #6
Pein
 
Регистрация: 23.02.2009
Сообщений: 5
По умолчанию

всем спасибо)
Pein вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать. Каравай Microsoft Office Excel 13 17.02.2010 09:53
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
Форма как "Инспектор обьектов" Dj_smart Общие вопросы Delphi 2 09.04.2008 21:01