Форум: "Начинающим";
Текущий архив: 2007.08.05;
Скачать: [xml.tar.bz2];
ВнизКак свернуть главное окно не сворачивая второстепенных Найти похожие ветки
← →
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"
Логично, осталось только перевести на русский язык и вернуться на пару постов назад.
← →
Инс © (2007-07-09 00:17) [14]
> [7] BiN © (08.07.07 23:16)
Все-таки строчки нужно переставить именно как у меня, иначе inherited все перезапишет.
← →
Cj © (2007-07-09 04:47) [15]
> [worning!]UnitWhite.pas(28):Text After final "END".-ignore
> by compiler
а перед End.-ом не пробовал писать.
А вообще по сабжу попробуй ShowWindow(главнаяФорма.Handle,sw_minimize);
← →
Wipahacker © (2007-07-09 12:28) [16]Вот именно что перед end.-ом ошибка мов protected не существует и код не запускается вобще!
Cj © попробуй создай две формы помести кнопочку и по нажатию кнопочки создается форма методом create(Application) и сделай так что бы при сворачивании главного окна, созданное оставалась на месте, и пришли полный рабочий код очень тебя прошу!
или на форум или в ICQ 365-325-990
Буду оооооо-оочень благодарен
wipahacka@mail.ru HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
← →
{RASkov} © (2007-07-09 12:40) [17]> [16] Wipahacker © (09.07.07 12:28)
Тебе, что теперь, в каждом посте ответ писать....
Уже ответили и не раз.... Единственное: при таком способе на панели задач появляется своя "кнопка" для окон с Params.WndParent:=0;
Но может это как раз для тебя лучше....
См [5] - там все полностью...
← →
Инс © (2007-07-09 12:42) [18]Парень, ты что, издеваешься? Я тебе в [11] привел как нужно оформить класс формы, а в [5] реализацию CreateParams. Проблема твоя в том, что ты просто бездумно нажал Ctrl+C, Ctrl+V. Осталось только чуток пошевелить мозгами и правильно вставить это в свою программу. Неужели даже на это не способен?
← →
Инс © (2007-07-09 12:48) [19]
> Единственное: при таком способе на панели задач появляется
> своя "кнопка"
Если нужно чтобы не появлялась, то так, правда заголовочек у формы будет выглядеть соответствующе:procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent:=0;
Params.ExStyle:=Params.ExStyle or WS_EX_TOOLWINDOW;
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.05;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.19 c