Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2011, 15:16   #1
Ko$
Пользователь
 
Регистрация: 21.12.2010
Сообщений: 91
По умолчанию Две кнопки

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



Код:
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 с параметрами

Код:
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;
Ko$ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавать две кнопки! _Мария_ Помощь студентам 2 22.06.2011 22:01
Нужно сделать две кнопки. Кто сможет? Zombie47 Помощь студентам 5 24.08.2010 00:20
Не получаются две кнопки в программе на Delphi KARUSHEV Помощь студентам 8 16.01.2009 09:41
UCOZ: Кнопки кнопки на изображении ReDuX HTML и CSS 19 25.04.2008 02:39
триггерные кнопки и кнопки переключатели в DELPHI MARGO Помощь студентам 3 12.11.2007 17:35