PDA

Просмотр полной версии : [Помогите!] При скрывании первой формы


-=ShoN=-
14.06.2011, 18:44
прячу первую форму, фторая открывается,но т.к. я спрятал первую форму, значок с панели задач,тоже прячется, а мне надо его оставить, и чтоб скажем так "главной" формой,стала вторая.
Более понятнее наверное так:
Когда форму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
как?я твоей мысли не уловил.

У меня проходят авторизацию. псоле чего открывается вторая форма(значок убирается)

Так бы и сказал :)

Авторизовался, вводи Form1.Visible := false;
Form2.Show

И скажи версию делфи

-=ShoN=-
15.06.2011, 17:49
Так бы и сказал :)

Авторизовался, вводи Form1.Visible := false;
Form2.Show

И скажи версию делфи

2010дельфи
пробывал, не помогает...

Тигрь
15.06.2011, 18:37
Form1:

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;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide();
Form2.Show();
end;

end.



Form2:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

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'


вот, выдает при компиляции....
чтож я такой криворукий-то...