Недавно добавленные исходники

•  Animation Loaders  1 044

•  DeLiKaTeS Tetris (Тетрис)  5 975

•  TDictionary Custom Sort  7 913

•  Fast Watermark Sources  7 573

•  3D Designer  10 814

•  Sik Screen Capture  8 147

•  Patch Maker  8 338

•  Айболит (remote control)  8 392

•  ListBox Drag & Drop  7 241

•  Доска для игры Реверси  101 447

•  Графические эффекты  8 448

•  Рисование по маске  7 813

•  Перетаскивание изображений  6 406

•  Canvas Drawing  6 790

•  Рисование Луны  6 720

•  Поворот изображения  5 831

•  Рисование стержней  4 778

•  Paint on Shape  3 474

•  Генератор кроссвордов  4 485

•  Головоломка Paletto  3 616

•  Теорема Монжа об окружностях  4 403

•  Пазл Numbrix  2 856

•  Заборы и коммивояжеры  3 806

•  Игра HIP  2 573

•  Игра Go (Го)  2 584

•  Симулятор лифта  2 968

•  Программа укладки плитки  2 397

•  Генератор лабиринта  3 152

•  Проверка числового ввода  2 633

•  HEX View  3 041

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Кнопка заголовка активного окна



Вы должны сами рисовать кнопку и обрабатывать ее перерисовку для показа вдавленного состояния. Затем, для активизации кнопки, вам необходимо реагировать на сообщение WM_NCHITTEST. Вот пример кода, рисующего безобразный зеленый контур вокруг красного прямоугольника около системного меню:


procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
  R: TRect;
begin
  inherited;
  Canvas.Handle := GetWindowDC(Handle);
  R := Bounds(GetSystemMetrics(SM_CXFRAME) +
    GetSystemMetrics(SM_CXSIZE) + 1,
    GetSystemMetrics(SM_CYFRAME),
    GetSystemMetrics(SM_CXSIZE),
    GetSystemMetrics(SM_CYSIZE));
  with Canvas do
  begin
    Brush.Color := clRed;
    Pen.Color := clLime;
    Rectangle(R.Left, R.Top, R.Right, R.Bottom);
  end;
  ReleaseDC(Handle, Canvas.Handle);
end;





Похожие по теме исходники

Посторонние окна WinAPI




Copyright © 2004-2026 "Delphi Sources" by «SiteAnalyzer». Delphi World FAQ

Группа ВКонтакте