Как свернуть главное окно не сворачивая второстепенных

← →
Wipahacker © (2007-07-07 19:09) [0]

Как свернуть главное окно не сворачивая второстепенных ?????

← →
Инс © (2007-07-07 19:59) [1]

Этим самым вашим "второстепенным" окнам, выставьте в CreateParams
Params.WndParent:=0;

← →
Wipahacker © (2007-07-08 13:41) [2]

Инс © а как это правильно записать
PWhite.CreateParams(Params.WndParent:=0);
Так не работает компилятор две ошибки выдает??
Помоги пожайлуста
Буду очень признателен
заранее благодарю!

← →
engine © (2007-07-08 15:00) [3]

var MyParams : TCreateParams;
begin
...
MyParams.wndParent := 0;
PWhite.CreateParams(MyParams);
...

что-то типа того

← →
Cj © (2007-07-08 15:22) [4]

ShowWindow?

← →
Инс © (2007-07-08 19:55) [5]

В форме, которая не должнв сворачиваться делаешь примерно так:

TForm2 = class(TForm) ... protected procedure CreateParams(var Params: TCreateParams); override; end; ... procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.WndParent:=0; end;

← →
Wipahacker © (2007-07-08 21:58) [6]

Вот мой кож: что я неправильно делаю и начи не работает??
//----------------------------------------------------------\\
unit UnitWhite;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, RzForms, se_controls, KsSkinForms,
RzCommon, RzDBLook;

type
TPWhite = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

Label1: TLabel;
LabelEdit: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
PWhite: TPWhite;

implementation

{$R *.dfm}

end.

procedure TPWhite.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent:=0;
end;

Ошибка компилятора: я понял что я не туда код положил
В какие Инс (с) строки мне вписать ваш код ?? |

На форуме Delphi Sourse не кто не знают и туфту предлагают
Мов можно exeшник маскировать под *.Dat и положить в единый проект
Нет смысла!!!! легче у вас спросить код чем нарушать оптимизацию...
Второстепенные окна мне нужны затем что я разрабатываю программы в роде
Органайзера только круче!
1- Эффекты дерганых записок
2- 8 Стилей записок вплодь до тетрадного листа
3- Настройка прозрачности, тени цвета шрифт,
4- Горячие клавиши настройка и заполнение быстрых команд, такие как: добавить, редактировать удалить, мелодии при срабатывания таймера.
5- Список записок с приоритетами,- чем выше приоритет тем круче может быть записка и многое другое......
Все это я уже сделал
/ Осталось *?**** проблема с окнами
Например я создал с главного окна записку методом Create(Application),
и после появление записки пользователи захотят свернуть программу но опят - же когда я сворачиваю главное окно сворачивается и созданное раньше просто не сталкивался с таким задачами да и в книгах такого нет
к примеру Архангельский А Программирование в Delphi
Архангельский А Основы программирования Delphi и язык Object Pascal
Естествено не где я похожего не нашел и решил обратится к знатокам МОГУЧЕЙ
DELPHI
Кто даст правильны ответ на мой занудливый вопрос (Извините за выражение)
Напишу соавтором программы!
Программа Коммерческая и достойна ею быть!
Моя ICQ 365-325-990
Кстати мое имя Роман мне 17 лет
Я еще молодой и не опытный, естественно хочу набраться у вас опыта и советов Дорогие мастера DELPHI

← →
BiN © (2007-07-08 23:16) [7]

procedure TPWhite.CreateParams(var Params: TCreateParams);
begin
Params.WndParent:=0;
inherited CreateParams(Params);
end;

← →
Wipahacker © (2007-07-08 23:32) [8]

procedure TPWhite.CreateParams(var Params: TCreateParams);
begin
Params.WndParent:=0;
inherited CreateParams(Params);
end;

// Компилятор игнорирует этот код
[worning!]UnitWhite.pas(28):Text After final "END".-ignore by compiler

← →
Anatoly Podgoretsky © (2007-07-08 23:42) [9]

> Wipahacker (08.07.2007 23:32:08) [8]

Относись как написано, текст после end. игнорируется.
Старые версии компиляторов вообще подальше пошлют.
Это грубая ошибка.

← →
Wipahacker © (2007-07-08 23:46) [10]

И куда мне вписать тогда ?

← →
Инс © (2007-07-08 23:55) [11]

TPWhite = class(TForm) Label1: TLabel; LabelEdit: TLabel; private { Private declarations } protected procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } end;

А вообще, иди-ка книжки почитай...

← →
Wipahacker © (2007-07-09 00:01) [12]

[Error] UnitWhite.pas(17): Unsatisfied forward or external declaration: "TPWhite.CreateParams"
[Fatal Error] WTasksProject.dpr(17): Could not compile used unit "UnitWhite.pas"

Инс © Спасибо за совет

← →
Инс © (2007-07-09 00:12) [13]

[Error] UnitWhite.pas(17): Unsatisfied forward or external declaration: "TPWhite.CreateParams"

Логично, осталось только перевести на русский язык и вернуться на пару постов назад.

> [worning!]UnitWhite.pas(28):Text After final "END".-ignore
> by compiler

а перед End.-ом не пробовал писать.
А вообще по сабжу попробуй ShowWindow(главнаяФорма.Handle,sw_minimize);

Вот именно что перед end.-ом ошибка мов protected не существует и код не запускается вобще!
Cj © попробуй создай две формы помести кнопочку и по нажатию кнопочки создается форма методом create(Application) и сделай так что бы при сворачивании главного окна, созданное оставалась на месте, и пришли полный рабочий код очень тебя прошу!
или на форум или в ICQ 365-325-990
Буду оооооо-оочень благодарен
wipahacka@mail.ru HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

> [16] Wipahacker © (09.07.07 12:28)

Тебе, что теперь, в каждом посте ответ писать....
Уже ответили и не раз.... Единственное: при таком способе на панели задач появляется своя "кнопка" для окон с Params.WndParent:=0;
Но может это как раз для тебя лучше....
См [5] - там все полностью...

Парень, ты что, издеваешься? Я тебе в [11] привел как нужно оформить класс формы, а в [5] реализацию CreateParams. Проблема твоя в том, что ты просто бездумно нажал Ctrl+C, Ctrl+V. Осталось только чуток пошевелить мозгами и правильно вставить это в свою программу. Неужели даже на это не способен?

> Единственное: при таком способе на панели задач появляется
> своя "кнопка"

Если нужно чтобы не появлялась, то так, правда заголовочек у формы будет выглядеть соответствующе:

procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.WndParent:=0; Params.ExStyle:=Params.ExStyle or WS_EX_TOOLWINDOW; end;

Как свернуть главное окно не сворачивая второстепенных Найти похожие ветки