прячу первую форму, фторая открывается,но т.к. я спрятал первую форму, значок с панели задач,тоже прячется, а мне надо его оставить, и чтоб скажем так "главной" формой,стала вторая.
Более понятнее наверное так:
Когда форму1 делаем невидимой,скрывается знчок с панели задач
надо чтобы у формы2 тоже был значок на панели задач...
VeTaL_UA
14.06.2011, 19:07
А ты попробуй сначала вторую показать, а потом первую скрыть...
Form2.Show;
Form1.Hide;
VeTaL_UA
14.06.2011, 22:41
мне надо перейти по ссылке, делаю гет запрос, 0 внимания....что можешь посоветовать?
Перейти по ссылке где? В компоненте WebBrowser? Или ты пишешь типо бот для онлайн игры и тебе надо отправить гет запрос?
Если в веб браузере, то
WebBrowser1.Navigate(Edit1.Text);
Если get запрос, то
var
str:TStringList;
begin
str:=TStringList.Create;
str.Add('email=[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
str.Add('pass=12345');
Form1.Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',str,Stream);
end;
Ну как-то так..
R-A-Z-O-R
15.06.2011, 06:52
прячу первую форму, фторая открывается,но т.к. я спрятал первую форму, значок с панели задач,тоже прячется, а мне надо его оставить, и чтоб скажем так "главной" формой,стала вторая.
Более понятнее наверное так:
Когда форму1 делаем невидимой,скрывается знчок с панели задач
надо чтобы у формы2 тоже был значок на панели задач...
На событии OnShow первой формы пропиши строчку Application.MainForm := Form2; , а на этом же событии второй формы напиши Application.MainForm := Form1;
Добавлено через 13 минут
прячу первую форму, фторая открывается,но т.к. я спрятал первую форму, значок с панели задач,тоже прячется, а мне надо его оставить, и чтоб скажем так "главной" формой,стала вторая.
Более понятнее наверное так:
Когда форму1 делаем невидимой,скрывается знчок с панели задач
надо чтобы у формы2 тоже был значок на панели задач...
На событии OnShow первой формы пропиши строчку Application.MainForm := Form2; , а на этом же событии второй формы напиши Application.MainForm := Form1;
-=ShoN=-
15.06.2011, 12:24
На событии OnShow первой формы пропиши строчку Application.MainForm := Form2; , а на этом же событии второй формы напиши Application.MainForm := Form1;
Добавлено через 13 минут
На событии OnShow первой формы пропиши строчку Application.MainForm := Form2; , а на этом же событии второй формы напиши Application.MainForm := Form1;
[DCC Error] Unit2.pas(37): E2129 Cannot assign to a read-only property
[DCC Error] Project1.dpr(6): F2063 Could not compile used unit 'Unit2.pas'
это вот с твоими строками, без них все ок, ток иконки на панеле нету
R-A-Z-O-R
15.06.2011, 13:21
[DCC Error] Unit2.pas(37): E2129 Cannot assign to a read-only property
[DCC Error] Project1.dpr(6): F2063 Could not compile used unit 'Unit2.pas'
это вот с твоими строками, без них все ок, ток иконки на панеле нету
А ты в uses каждой формы после раздела implementation добавил название юнита формы, назначающейся главной?
-=ShoN=-
15.06.2011, 13:56
А ты в uses каждой формы после раздела implementation добавил название юнита формы, назначающейся главной?
ну да)
есть скайп/ася,кинь плиз...я те исходник дам, посмотришь...
VeTaL_UA
15.06.2011, 14:22
Лучше изначально делать form2 главной, а form1 вызывать в OnCreate главной формы методом ShowModal, а потом удалять.
-=ShoN=-
15.06.2011, 14:26
Лучше изначально делать form2 главной, а form1 вызывать в OnCreate главной формы методом ShowModal, а потом удалять.
блин, тоисть это предется переписывать....?
ну должен же быть выход...
VeTaL_UA
15.06.2011, 16:13
блин, тоисть это предется переписывать....?
Нет. Просто при нажатии на баттон делай вторую форму главной. А всё остально е в онкреате)
-=ShoN=-
15.06.2011, 17:04
Нет. Просто при нажатии на баттон делай вторую форму главной. А всё остально е в онкреате)
как?я твоей мысли не уловил.
У меня проходят авторизацию. псоле чего открывается вторая форма(значок убирается)
R-A-Z-O-R
15.06.2011, 17:31
как?я твоей мысли не уловил.
У меня проходят авторизацию. псоле чего открывается вторая форма(значок убирается)
type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
end.
-=ShoN=-
15.06.2011, 18:55
procedure TForm6.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
[DCC Error] Unit6.pas(82): E2003 Undeclared identifier: 'CreateParams'
[DCC Error] Unit6.pas(82): E2029 ';' expected but '(' found
[DCC Error] Unit6.pas(82): E2029 ';' expected but ')' found
[DCC Error] Unit6.pas(84): E2075 This form of method call only allowed in methods of derived types
[DCC Fatal Error] hi.dpr(6): F2063 Could not compile used unit '..\Unit6.pas'
вот, выдает при компиляции....
чтож я такой криворукий-то...