Скачать: CL | DM;

А как сделать в процессе выполнения программы не главное окно ...   Найти похожие ветки 

← →
Gear   (2005-01-11 18:45) [0]

А как сделать в процессе выполнения программы не главное окно главным?

---

← →
Семен Сорокин ©   (2005-01-11 19:12) [1]

1. Cкинуть в проект модуль forms.pas добавить и откомпилировать write-метод в св-во Application.MainForm
2. Выставить Application.ShowMainForm := false; и сделать второе окно (визуально) главным, только если не нужна ссылка в Application (можно еще поиграться с Restore, Minimize).

---

← →
Gear   (2005-01-11 19:32) [2]

с первым ничего не понял :(
со вторым, дело в том что когда минимизируешь а затем максимизируешь окно то и главное появляется ((.
А если сделать так:

procedure TForm1.AppMinimize(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
end;

 Application.OnMinimize:=AppMinimize;
 Application.OnRestore:=AppMinimize;
 Application.Minimize;
 AppMinimize(@Self);

то при запуске минимизируется вобще все окна.

К предыдущемо Вашему посту. Хотелось бы чтобы в начальном окне имелась бы возможность с помощью кнопки запускать основное окно программы. Это стандартный случай триал версии.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c