И не читайте батенька Советских газет, т.е. этого шарлатана Архангельского А.Я., который впихивает свои книги своим студентам. По SQL класикой считается Мартин Грабер, начиная от "Введение в SQL", которой достаточно в 90% случаях, и кончая "SQL-99" По Delphi достаточно отслеживать пару Марко Кэнту "Delphi для профессионалов" и Стив Тейксейра, Ксавье Пачеко "Delphi 6 (5,4) - руководство разработчика", соответственно по версиям Delphi., серьезные полноценные руководства без трепологии.

из Project.dpr удалите строки
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
или
Application.CreateForm(TfrmModal1, frmModal1);
Application.CreateForm(TfrmModal2, frmModal2);
и вернемся к Unit1 как uMain

на событие в uMain реагируем
procedure TfrmMain.Button1Click(Sender: TObject);
begin
Application.CreateForm(TfrmModal1, frmModal1);
frmModal1.ShowModal;
if frmModal1.ModalResult = mrOK then showmessage('OK')
else showmessage('Cancel')
frmModal1.Free;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
Application.CreateForm(TfrmModal2, frmModal2);
frmModal2.ShowModal;
if frmModal2.ModalResult = mrOK then showmessage('OK')
else showmessage('Cancel')
frmModal2.Free;
end;

итак у нас получается одна оснавная форма и две модальные... основная будет служить как платформой для модальных... для того что бы отказаться от основной формы... придется выпендриться хорошенько... хотя и такое реализуемо...

имеем
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TfrmMain = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.
******************
program Project1;
uses
Forms,
uMain in 'uMain.pas' {frmMain},
Unit1 in 'Unit1.pas' {frmModal1},
Unit2 in 'Unit2.pas' {frmModal2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmModal1, frmModal1); // отображаем то что
//будет отображаться...
Application.Run;
end.
**********************
unit uModal1;
...
uses uModal2;

{$R *.dfm}

procedure TfrmModal1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TfrmModal2, frmModal2);
frmModal2.Show;
frmModal1.Free;
end;

end.
*********************
unit uModal2;
...
uses uModal1;

{$R *.dfm}

procedure TfrmModal2.Button1Click(Sender: TObject);
begin
Application.CreateForm(TfrmModal1, frmModal1);
frmModal1.Show;
frmModal2.Free;
end;

end.
******************
сорс прилагается последнего варианта

program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
//Application.CreateForm(TForm1, Form1); // эту форму будем создавать динамически
Application.CreateForm(TForm2, Form2); // главная форма
Application.Run;
end.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Procedure LoadForm1;
var
Form1: TForm1;
implementation
Uses Unit2; // подключение модуля основной формы
{$R *.dfm}
Procedure LoadForm1;
begin
try
begin
Unit2.Form2.Visible := false; //делаем основную форму невидимой
Form1 := TForm1.Create(nil); //создаем новую
Form1.ShowModal; //отображаем и с ней делаем все,
//что надо
end
finally
begin
Unit2.Form2.Visible := true; //делаем основную форму видимой
Form1.Free; //удаляем созданную форму
end; end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ModalResult := mrOK; //даем команду на окончание работы
end;
end.
// код основной формы
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit1 // подкючаем модуль;
type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
Unit1.LoadForm1; //просто вызываем процедуру, остальное отражено в ней
end;
end.
Т.о. будет проще, если форм будет еще больше. И в памяти висеть не будут, а создаваться по мере необходимости. Удачи в освоении...

Вы обращали внимание на то, что некоторые приложения после установки добавляют в системное контекстное меню свои собственные пункты? Так поступают многие архиваторы, антивирусные средства и другие утилиты. Эта возможность предоставляется оболочкой Windows.

Когда пользователь щелкает правой кнопкой мыши на любом объекте в пространстве имен, система создает контекстное меню из двух частей: стандартного меню для объектов данного типа и пунктов меню, добавляемых зарегистрированными обработчиками. Зарегистрированные обработчики — это СОМ-серверы, запускаемые в адресном пространстве процесса (in-process servers) и реализованные в виде динамических библиотек.

Ваш СОМ-объект, который расширяет системное контекстное меню, должен поддерживать как минимум два интерфейса — ishellExtinit и IContextMenu. существует и два новых интерфейса — IContextMenu2 и icontextMenuS, но они вносят в логику работы контекстных меню лишь небольшие дополнения и здесь рассмотрены не будут. Интерфейс ishellExtinit отвечает за инициализацию меню, а интерфейс IContextMenu — за выполнение основных функций.

Методы интерфейса IContextMenu приведены в табл. 

Таблица. Методы интерфейса IContextMenu

Рассмотрим их подробнее. Параметры метода QueryContextMenu означают следующее:

•  Menu — дескриптор системного меню;
• IndexMenu — позиция в меню, в которую следует вставить пункт (пункты);
•  IdCmdFirst,IdCmdLast — диапазон допустимых значений для идентификаторов вставляемых пунктов меню;
•  uFlags — набор флагов, главные из которых означают:

•  CMF_NORMAL — обычный вызов контекстного меню, пункты могут быть добавлены. Значение этого флага нулевое, проверять его следует, очистив все биты в параметре uFlags, кроме пяти младших (маска $1F);
•  CMF_DEFAULTONLY — устанавливается, если пользователь задал с объектом действие по умолчанию (например, двойной щелчок). В этом случае пункты меню добавляться не должны;
•  CMF_VERBSONLY — устанавливается, если меню создается для ярлыка объекта, а не для самого объекта. В этом случае многие пункты меню создаваться не должны;
•  CMF_EXPLORE — устанавливается, если меню создается для объекта, находящегося на левой панели Проводника.

Для иллюстрации объектов — расширений контекстного меню — выберем пример ContMenu (поставляется с Delphi в папке DEMOSACTIVEX SHELLEXT). В этом примере для объектов типа "проект Delphi" добавляется возможность запуска компилятора в командной строке. При вызове метода QueryContextMenu нужный пункт добавляется с помощью функции

InsertMenu!

function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,

idCmdLast, uFlags: UINT): HResult; 

begin

Result := 0; // или использовать MakeResult(SEVERITY_SUCCESS, // FACILITY_NULL, 0);

if ( (uFlags and $OOOOOOOF) = CMF__NORMAL) 

or

((uFlags and CMF_EXPLORE) о 0) then begin 

// Добавить один пункт меню во всплывающее меню 

InsertMenu(Menu, indexMenu, MF__STRING or MF_BYPOSITION, idCmdFirst, 'Compile...');

Result := 1; 

// или использовать MakeResult(SEVERITY_SUCCESS, // 

FACILITY_NULL, 1)

end; 

end;

Метод Getcornmandstring предоставляет системе данные о пункте меню, в частности, текст подсказки; эта подсказка будет отображаться в строке состояния Проводника, когда курсор находится в нужном месте меню.

Параметры Getcommandstring просты. Первый — idCmd — соответствует идентификатору пункта меню, второй — uType — запрос на тип информации (GCS_HELPTEXT — текст подсказки, GCS_VERB — полное название пункта меню). Наконец, параметры pszName и cchMax  задают буфер, в который будут копироваться текстовые данные. Полное название необходимо системе, чтобы с его помощью вызывать предусмотренные в пункте действия программно. В примере ContMenu возврат названия (т. е. обработка запроса GCS_VERB) не предусмотрен, а в ответ на запрос GCS_HELPTEXT возвращается текстовая строка "Compile the selected Delphi project".

Наиболее сложным является метод Invokecommand. Он вызывается при выборе пользователем вставленного вами пункта меню. По сути дела метод InvokeCommand представляет собой прямой аналог обработчика onclick обычных пунктов меню (объектов TMenuitem) в Delphi.

Единственным параметром метода является структура типа TCMinvoke-commandinfo, поля которой имеют такое предназначение:

•  cbsize — размер структуры в байтах;
•  hwnd — задает дескриптор окна, которое будет владельцем диалоговых окон, вызываемых из метода;
•  fMask — определяет, заданы ли параметры dwHotkey/hicon;
•  Ipverb — вызываемая команда;
•  IpFarameters — параметры (если есть);
•  IpDirectory — рабочая папка (поле не обязательно);
•  nShow — флаг состояния окна, который будет передан в функцию ShowWindow (SW_*);
•  dwHotKey — "горячая" комбинация клавиш, которая будет сопоставляться приложению, запускаемому из этого пункта меню (только если в параметре fMask установлен флаг CMIC_MASK_HOTKEY);
• hIсоn — значок, который будет сопоставляться приложению, запускаемому из этого пункта меню (только если в параметре fMask установлен флаг CMIC_MASK_ICON);
•  Monitor — монитор по умолчанию (поле не обязательно).

Отдельно следует остановиться на описании параметра ipverb. Как уже говорилось, он может представлять из себя как идентификатор пункта меню, так и его текст — строку, заканчивающуюся нулем. Чтобы выяснить это, нужно проверить старшее слово этого 32-разрядного параметра на равенство нулю. В примере ContMenu вызов по тексту не предусмотрен:

if (HiWord(Integer(Ipici.IpVerb)) <> 0) then

begin

Exit; 

end;

Для создания расширения контекстного меню мы должны породить объект, поддерживающий эти интерфейсы. К сожалению, мастера, предусмотренные в Delphi, не позволяют в автоматизированном режиме создавать объекты, реализующие уже существующие интерфейсы. Поэтому и описание, и реализацию методов придется делать "по старинке", вручную. В примере ContMenu описание объекта таково:

TContextMenu = class(TComObject, IShellExtlnit, IContextMenu) private

FFileName: array[0..MAX_PATHj of Char; 

protected

( IShellExtlnit }

function IShellExtlnit.Initialize = SEIInitialize;

function SEIInitialize(pidlFolder: PItemlDList; Ipdobj: IDataObject;

hKeyProgID: HKEY): HResult; stdcall; { IContextMenu }

function QueryContextMenufMenu: HMENU; 

indexMenu, idCmdFirst, idCmdLast,

uFlags: UINT): HResult;

  stdcall;

function InvokeCommand(var Ipici: TCMInvokeCommandlnfo): HResult; stdcall;

function GetCommandString(idCmd, uType: UINT; pwReserved: POINT;

pszName: LPSTR; cchMax: UINT): HResult;

stdcall; 

end;

Вас может насторожить конструкция, описывающая переименование метода initialize интерфейса ishellExtinit. На самом деле одноименный метод имеется у объекта TComObject, и приведенный синтаксис как раз и предназначен для выхода из подобных ситуаций.

Последняя часть работы — регистрация созданного обработчика. Самое подходящее место для этого — метод updateRegistry фабрики класса. Разработчики примера ContMenu породили класс TContextMenuFactory, который при регистрации СОМ-сервера регистрирует создаваемые фабрикой объекты:

Classic := GUIDToString(Class_ContextMenu);

CreateRegKey('DelphiProjectXshellex', '', '')/'

CreateRegKey

('DelphiProjectshellexContextMenuHandlers', '', '');

CreateRegKey

('DelphiProjectshellex ContextMenuHandlersContMenu', '', ClassID);

Пример ContMenu иллюстрирует "дельфийский" подход к созданию серверов СОМ через соответствующие объекты из иерархии объектов Delphi. Но в папке SHELLEXT вы найдете еще один пример создания расширения для контекстного меню, сделанный целиком и только с использованием интерфейсов и функций СОМ. Присмотритесь к этому примеру внимательнее, если хотите глубже понимать внутреннюю структуру СОМ-объектов.

Резюме

Несколько тем могут дать лишь начальные представления о принципах работы с оболочкой Windows. Вы можете изучить составляющие ее объекты практически сколь угодно глубоко — были бы потребность да желание. Разумеется, чтобы не "наломать дров", перед этим надо отдать себе отчет в полном и правильном понимании механизмов СОМ.

В этом примере я искал первое вхождение требуемой строки (тут я проверял на наличие строки '123'). Если нужно удалять все строки, содержащие 123, вместо цикла for используй цикл while или repeat.

if (Controls[i] is TListBox) and (Pos('Channel_', Controls[i].Name) = 1) then
// Условие проверяет, является ли очередной контрол ListBox'ом и
// начинается ли его имя с 'Channel_' (подстрока 'Channel_' начинается
// в строке имени контрола с первой позиции).
begin
// Условие, проверяемое выше, гарантирует, что i-ый контрол имеет
// тип TListBox и дальнейшее динамическое приведение его к этому типу
// корректно.
with (Controls[i] as TListBox) do
begin
// Метод TStrings.IndexOf(const S: string) возвращает индекс строки S
// в списке, либо -1, если список не содержит такой строки. По условию,
// если строка имеется, то её нужно удалит. Удаляется только одна
// строка, равная S (в условии не говорится о том, что их может быть
// несколько).
IndexOfS := Items.IndexOf(S);
if (IndexOfS <> -1) then
Items.Delete(IndexOfS);
end;
end;
end;
end;

Процедура должна быть объявлена методом формы, содержащей данные ListBox'ы.