Кнопки

@Dr@gon. · Регистрация: 22.11.2010

Author24 — интернет-сервис помощи студентам

Есть форма на ней Панель, на панели разные кнопки, нажимаем допустим на button4, она как бы меняет вид формы, там напимер панель больше становится(ну разные настройки) :

Delphi

procedure TForm1.btn4Click(Sender: TObject); 
 
begin
 
sPanel2.Visible:=False;
 
Button1.Visible:=False;
 
img2.Visible:=true;
 
Form1.TransparentColor:=False;
 
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized;
Form1.Position:=poDesktopCenter;
Form1.Width:=Screen.Width;
Form1.Height:=Screen.Height;
 
sPanel1.Visible:=False;
 
WebBrowser1.Height:=801;
WebBrowser1.Left:=584;
WebBrowser1.Top:=56;
WebBrowser1.Width:=633;
WebBrowser1.Navigate('K:\Ðàçíîå\Sait\Íîâàÿ ïàïêà (2)\index.html');
 
Panel1.Left:=0;
Panel1.Top:=0;
Panel1.Width:=Screen.Width;
 
sSpeedButton1.Left:=1248;
sSpeedButton2.Left:=1215;
sSpeedButton7.Left:=1183;
 
end;

как сделать чтобы при нажатии допустим на button3(изначально button3 открывает Form5 с параметрами:

Delphi

procedure TForm1.sSpeedButton3Click(Sender: TObject);
begin
 Form5.Left:=Form1.Left-159;
 Form5.Top:=Form1.Top+30;
 AnimateWindow(Form5.Handle, 800, AW_HOR_NEGATIVE);
 Form5.Show;
end;

чтобы после нажатия на Button4 и нажатии на Button3 эти параметры Form5 переделать так :
Form5.Left:=Form1.Left+159;
Form5.Top:=Form1.Top+30;
AnimateWindow(Form5.Handle, 800, AW_HOR_POSITIVE);
Form5.Formstyle:=fsStayOnTop;
Form5.Show;

	15.11.2011, 17:27