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

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

•  TDictionary Custom Sort  6 509

•  Fast Watermark Sources  6 298

•  3D Designer  9 245

•  Sik Screen Capture  6 634

•  Patch Maker  7 009

•  Айболит (remote control)  7 018

•  ListBox Drag & Drop  5 889

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

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

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

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

•  Canvas Drawing  5 760

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

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

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

•  Paint on Shape  2 814

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

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

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

•  Пазл Numbrix  2 491

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

•  Игра HIP  2 138

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

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

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

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

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

•  HEX View  2 597

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

 
скрыть

  Форум  

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

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



Delphi Sources

Z-порядок при каждом показе диалога




// Там не листбокс, а EDIT, но суть точно та же. Чтобы получить текст, а не
// записать его, надо просто использовать Get вместо Set. Судя по тому, что
// программа уже 2 года работает без малейших проблем, Z-порядок при  каждом
// показе диалога один и тот же.

program Project1;

uses 
 Windows, Messages;

const 
 Title1 = 'Установка связи';
 Title2 = 'Удаленное соединение';
 Login = '...';
 Password = '...';

var 
 Wnd: HWND;
 Control: array [0..127] of char;

procedure TypeTextIntoNextEdit(AText:string);
begin
 repeat // Ищем следующее в Z-порядке окно класса EDIT
   Wnd := GetWindow(Wnd, GW_HWNDNEXT);
   GetClassName(Wnd, Control, SizeOf(Control))
 until Control = 'Edit';
 SendMessage(Wnd, WM_SETTEXT, 0, Integer(PChar(AText))) // Вводим текст
end;

begin
 Wnd := FindWindow(nil, Title1);  // Это окно самого диалога
 if Wnd = 0 then                  // Если не найдено, ищем другой диалог 
 begin
   Wnd := FindWindow(nil, Title2);
   if Wnd = 0 then Exit;
 end;
 Wnd := GetWindow(Wnd, GW_CHILD); // Это верхний комбобокс
 TypeTextIntoNextEdit(Login);     // Вводим логин
 TypeTextIntoNextEdit(Password)   // Вводим пароль
end.





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

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

База предприятий и менеджеров 0.99

 

Консольное DOS приложение

Работа с принтером

Локализация приложений




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

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