Как изменить цвет шапки формы в delphi
Нравится ресурс?
ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] . [/сode] . Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля. Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как «свернуть» программу в трей.
3. Как «скрыться» от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
. (продолжение следует) .
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка — 60 дней. Последующие попытки бан.
Мат в разделе — бан на три месяца.
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
Как изменить размер шапки формы?
Как изменить размер левого края формы?
Имеется дочерняя форма, открытая модально поверх основной. При нажатии, на определённую кнопку.
Align Формы — невозможно изменить размер
Проблема такова: ставлю в alnone -могу двигать, а изменять размер не могу, alcustom — размер.
Как изменить размер TImage под текущий размер Picture ?
Доброго времени суток! Есть задача (Delphi 7). В TImage загружается Picture с условиями: Center.
Две одинаковые формы: изменить размер только первой
умения такой вопрос, если открыть вторую формы вдвух экземплярах (может и больше) праблема.
4913 / 2782 / 853
Регистрация: 04.10.2012
Сообщений: 10,121
Сообщение было отмечено saikle как решение
Решение
Можно поиграть со шрифтом
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
type TForm1 = class(TForm) private procedure WMNCPaint(var Mes : TWMNCPaint); message WM_NCPAINT; public end; var Form1: TForm1; implementation procedure TForm1.WMNCPaint(var Mes : TWMNCPaint); var ACanvas : TCanvas; begin ACanvas := TCanvas.Create; try ACanvas.Handle := GetWindowDC(Form1.Handle); with ACanvas do begin Brush.Color := clActiveCaption; Font.Name := 'Verdana'; Font.Size := 10; Font.Color := clCaptionText; Font.Style := [fsBold]; TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER), Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) +1, ' SwissDelphiCenter'); end; finally ReleaseDC(Form1.Handle, ACanvas.Handle); ACanvas.Free; end; end;
Как изменить цвет шапки формы в delphi
Сообщение от Jene4ka
ну да,оно прорисовала рамку вокруг формы.но верхняя-то часть как была так и осталась, в плане та, где название и пиктограмма
.
ну да, теперь названия формы и пиктограмм нет вообще
Вот ваш вопрос:
| как поменять цвет рамки у формы |
И где, позвольте узнать, идет речь о шапке формы?
Как изменить цвет формы,где крестик?
Как и всегда .
🙂
Надо на рабочем столе по правой лапке крысы (это рядом с хвостиком) выбрать такую штукенцию, которая «Свойства» называется.
А в той штуковине, что откроется выбрать такую штучку (это недалеко от того самого крестика), что называется «Оформление».
А там (прямо вниз по ходу движенния) найти «Элемент».
И вот в этом «элементе» найти в свитке «Заголовок активного окна».
И вот когда все это сделается, то справа (если на экран правильно смотреть — спереди и не в верх ногам), надо нажать на кнопочку, что рядом с «цвет» находится и там черный цвет выбрать.
И будет Вам «счастье» .
🙂
Шутка, конечно.
Но примерно таков ваш вопрос .
🙂