Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Изменить размер кнопки ПУСК

Delphi , Рабочий стол , ПУСК

Изменить размер кнопки ПУСК

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 begin
   MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),
              300, 0, 80, 22, true);
 end;

Here is the translation of the text into Russian:

Код-снippet, который вы предоставили, - это процедура VCL (Visual Component Library) в Delphi, которая изменяет размер кнопки с именем "Button", когда она кликнута. Кнопка находится в системной области трея.

Вот разбивка того, что код делает:

  1. FindWindowEx: эта функция поискает окно с указанным именем класса ('Shell_TrayWnd') и возвращает его.handle.
  2. FindWindow: эта функция поискает окно с указанным именем класса ('Button') и возвращает его.handle.
  3. MoveWindow: эта функция перемещает окно на указанную позицию (в этом случае, 300 пикселей от левого края экрана, 0 пикселей от верхнего края, 80 пикселей шириной и 22 пикселя высотой).

Однако, если вы хотите изменить размер конкретной кнопки с именем "Button" на вашей форме (TForm1), вы можете использовать свойства Button1.Width и Button1.Height вместо. Вот альтернативное решение:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.SetBounds(300, 0, 80, 22);
end;

В этом коде Button1.SetBounds изменяет позицию и размер кнопки на указанные значения. Метод SetBounds принимает четыре параметра: левый край (x), верхний край (y), ширина и высота.

Обратите внимание, что если вы хотите изменить размер кнопки системной области трея, вам может потребоваться использовать другие API или библиотеки, так как VCL Delphi не предоставляет прямого доступа к кнопкам системной области трея.

В статье описывается процедура на языке Delphi, которая изменяет размер кнопки ПУСК в системном трее Windows.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: ПУСК ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 06:24:12/0.0034058094024658/0