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

•  DeLiKaTeS Tetris (Тетрис)  3 780

•  TDictionary Custom Sort  5 893

•  Fast Watermark Sources  5 689

•  3D Designer  8 462

•  Sik Screen Capture  6 027

•  Patch Maker  6 471

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

•  ListBox Drag & Drop  5 325

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

•  Графические эффекты  6 671

•  Рисование по маске  5 779

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

•  Canvas Drawing  5 225

•  Рисование Луны  4 946

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

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

•  Paint on Shape  2 426

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

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

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

•  Пазл Numbrix  2 246

•  Заборы и коммивояжеры  2 904

•  Игра HIP  1 874

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

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

•  Программа укладки плитки  1 854

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

•  Проверка числового ввода  1 980

•  HEX View  2 289

•  Физический маятник  1 954

 
скрыть

  Форум  

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

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