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

•  DeLiKaTeS Tetris (Тетрис)  4 297

•  TDictionary Custom Sort  6 344

•  Fast Watermark Sources  6 134

•  3D Designer  9 066

•  Sik Screen Capture  6 454

•  Patch Maker  6 869

•  Айболит (remote control)  6 856

•  ListBox Drag & Drop  5 731

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

•  Графические эффекты  7 074

•  Рисование по маске  6 374

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

•  Canvas Drawing  5 620

•  Рисование Луны  5 317

•  Поворот изображения  4 868

•  Рисование стержней  3 453

•  Paint on Shape  2 713

•  Генератор кроссвордов  3 589

•  Головоломка Paletto  2 882

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

•  Пазл Numbrix  2 422

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

•  Игра HIP  2 062

•  Игра Go (Го)  1 989

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

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

•  Генератор лабиринта  2 510

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

•  HEX View  2 521

•  Физический маятник  2 137

 
скрыть

  Форум  

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

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



Delphi Sources

Включить или выключить флажок у другого приложения




{ 
  The function CheckCheckBox() checks or unchecks a Checkbox in another 
  window. 

  Parameter: 
  hApp : Handle to the parent window of the Checkbox. 
  ClassName: Class name of the Checkbox. 
  (For Delphi-Applications: TCheckBox. For C, VB,..: Checkbox) 
  bValue: Determines whether the check box is in the checked state. 
  CheckBoxNr: Number of the CheckBox (useful if there are several Checkboxes) 
} 

procedure CheckCheckBox(hApp: HWND; ClassName: string; bValue: Boolean; CheckBoxNr: Integer); 
var 
  i: Word; 
  hCheckBox: HWND; 
begin 
  if not IsWindow(hApp) then Exit; 
  for i := 0 to CheckBoxNr do 
    hCheckBox := FindWindowEx(hApp, hCheckBox, PChar(ClassName), nil); 
  if IsWindow(hCheckBox) then 
    SendMessage(hCheckBox, BM_SETCHECK, Integer(bValue), 0); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  CheckCheckBox(Handle, 'TCheckBox', True, 1); 
  // Or / Oder 
  // CheckCheckBox(Handle, 'CheckBox', True, 1); 
end;  








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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