Приветствую Вас, DJ B! Если я не ошибаюсь, то в делфи так сделать нльзя. Можно в VB. А если хочешь в Делфи, то попробуй использовать OpenGL! Ответ отправлен: 22.10.2003, 20:01 Отправитель: CJ
Вопрос № 1055
Здравствуйте Эксперты! Как мне сделать, чтобы форма выводилась на экран с каким-нибудь прозрачным цветом? Пока!
Приветствую Вас, Nick! А что такое "Прозрачный цвет". Я лично не знаю. Просто прозрачную форму можно делать с помощью свойств AlphaBlend и AlphaBlendValue или с помощью WinApi - SetLayeredWindowAttributes. Ответ отправлен: 23.10.2003, 14:00 Отправитель: Marouder Отвечает Cybernetic Creature
Добрый день, Nick! unit TranspaF; ................... type TForm1 = class(TForm) private { Private declarations } public procedure CreateParams (var Params: TCreateParams); override; end; ..................... procedure TForm1.CreateParams (var Params: TCreateParams); begin inherited CreateParams (Params); Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT; end; end. ********************************************* Прозрачное окно 2 procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style := bsClear; Form1.BorderStyle := bsNone end; Ответ отправлен: 23.10.2003, 18:20 Отправитель: Cybernetic Creature Отвечает CJ
Приветствую Вас, Nick! Сделай цвет формы например красным. И используй AlphaBlend ставб в true, а AlphaBlendalue уже настраивай по вкусу!
Ответ отправлен: 22.10.2003, 20:02 Отправитель: CJ Отвечает THE_PRO
Доброе время суток, Nick! Svoystvo AlphaBlend Fromi. Ответ отправлен: 22.10.2003, 16:15 Отправитель: THE_PRO Отвечает sir henry
Здравствуйте, Nick! У формы есть свойства: AlphaBlend:=True; AlphaBlendValue:={0..255} 0 - форма совершенно невидна; 255 - нормальная форма. Ответ отправлен: 22.10.2003, 09:34 Отправитель: sir henry Отвечает ART_43
Добрый день, Nick! Form1.TransparentColorValue:=clBlack; Form1.TransparentColor:=true;
Ответ отправлен: 22.10.2003, 09:42 Отправитель: ART_43
Вопрос № 1056
Уважаемые эксперты!! Есть проблема у чайника! Как некую переменную X которая постоянно меняет свое значение связать с компонентом ProgressBar чтобы он отражал ее значение.И еще не подскажите где можно почитать инфу о компонентах и их возможностях. С уважением Антон.
Доброе время суток, антон! Можно попробовать с помощью таймера. Ответ отправлен: 23.10.2003, 14:00 Отправитель: Marouder Отвечает Boriss
Здравствуйте, антон! 1) есть свойство Position, которую надо устанвавливать по формуле Round((X - Xmin)/(XMax - Xmin)) 2) есть интересный справочник Delphistfaq.chm на http://www.forum.vingrad.ru/index.php?act=SF&f=32
Ответ отправлен: 23.10.2003, 10:52 Отправитель: Boriss Отвечает Cybernetic Creature
Здравствуйте, антон! procedure Timer1Timer(Sender: TObject); begin ProgressBar1.Position:=Round(x) end; Ответ отправлен: 23.10.2003, 18:20 Отправитель: Cybernetic Creature Отвечает THE_PRO
Добрый день, антон! ProgressBar1.Position:=X; Ответ отправлен: 23.10.2003, 10:13 Отправитель: THE_PRO Отвечает CJ
Здравствуйте, антон! Смотри приложение!
Приложение: Ответ отправлен: 23.10.2003, 22:28 Отправитель: CJ Отвечает sir henry
Здравствуйте, антон! У ProgressBar есть свойство Position, которое отражает его текущее состояние. Ответ отправлен: 23.10.2003, 05:56 Отправитель: sir henry
Вопрос № 1057
Ув. эксперты! Как в MDI-приложении можно создать (в том, что это сделать можно, я не сомневаюсь) модальную форму (модальную для главного окна приложения). Штатные средства VCL почему-то не работают... Спасибо.
Ответ отправлен: 23.10.2003, 18:20 Отправитель: Cybernetic Creature Отвечает sir henry
Здравствуйте, Lerry! Форму как раз можно создать штатными средствами, а вот показывать программно: Form.ShowModal; Ответ отправлен: 23.10.2003, 06:07 Отправитель: sir henry
Вопрос № 1058
Я начинающий в Delphi. Подскажите как мне округлить число типа Double. Было - 1.2356, стало - 1.24. Пробовал через формат не получилось выдает - 1.20. Спасибо.
Приветствую Вас, lordfa! Vrodebi vse doljno rabotat... Ответ отправлен: 23.10.2003, 10:11 Отправитель: THE_PRO Отвечает sir henry
Доброе время суток, lordfa! В модуле Math есть функция RoundTo(число, куда_округлять). Пример: RoundTo(-1.2356, -2); даст -1.24 RoundTo(-1.2356, -1); даст -1.2 Ответ отправлен: 23.10.2003, 06:49 Отправитель: sir henry
Вопрос № 1059
приветствую всех экспертов. помогите написать код к программкам(Delphi5): 1.нужно сделать примерно следующее: зайти на фтп сервер by.ru по 21 порту с именем пользователя "mysite.by.ru" и паролем "password". проверить существование на сервере каталога "downloads" и файла "file.ext", удалить их если есть. создать каталог "catalog" и туда скопировать файл "c:filetocopy.ext". желательно, без сторонних компонентов. 2.как программе на делфи читать из самой себя, начиная с 45789-го байта от начала файла? 3.ныжни исходники программы, меняющей иконку у стороннего *.exe файла. ------------- заранее благодарен.
Приветствую Вас, Zensor! 1) Как раз сегодня наткнулся на статью "Как сделать WebBrowser средствами Delphi 5" на http://www.delphimaster.ru/articles/webbrowser.html
Ответ отправлен: 23.10.2003, 13:01 Отправитель: Boriss
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.