Не задвигается панель обратно

@Тимур Хамзин · Регистрация: 22.05.2016

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm3.Label4Click(Sender: TObject);
begin
m:=not(m);
if m then Label4.Caption := '<'
      else Label4.Caption := '>';
end;
 
procedure TForm3.Timer2Timer(Sender: TObject);
begin
if (m) and (GroupBox3.Left<0) then
   GroupBox3.Left:= GroupBox3.Left  + 5;
   if (not m) and (GroupBox3.Left>+960) then
   GroupBox3.Left:=GroupBox3.Left - 5;

Вот такой код , GropuBox выдвигается но обратно задвигаться не хочет , в чем траблы ?

@TFullControl · 06.06.2017, 12:29

Строка 12 надо минус 960.

@Тимур Хамзин · 06.06.2017, 14:02 **[ТС]**

TFullControl, пробовал , он вообще в другую сторону уходит

@D1973 · 06.06.2017, 14:18

Тимур Хамзин, Вы, собственно, что сделать хотите? И где полный код Timer2Timer?

@Тимур Хамзин · 06.06.2017, 14:45 **[ТС]**

D1973, у меня панель выдвигается , но не задвигается обратно, а мне надо что бы она задвигалась

@D1973 · 06.06.2017, 14:52

Сообщение от Тимур Хамзин

у меня панель выдвигается , но не задвигается обратно

Это я понял из вопроса, а где ответ на остальные вопросы: итоговая цель (что куда, до какого момента выдвигается/задвигается), полный код события таймера.

@Тимур Хамзин · 06.06.2017, 15:19 **[ТС]**

D1973, и я скинул полный код таймера

Добавлено через 4 минуты
D1973, по нажатию кнопки панель выдвигается влево , а по повторному нажатию она должна задвигаться обратно , но она этого не делает .

@D1973 · 06.06.2017, 15:38

Сообщение от Тимур Хамзин

GroupBox3.Left>+960

Вот это что за магическая конструкция?

@TFullControl · 06.06.2017, 15:46

Сообщение от Тимур Хамзин

он вообще в другую сторону уходит

Так стоило изначально указать в какую сторону и относительно чего вам его двигать надо, то что я вам подсказал работает для сдвига влево за область окна. Вот так можно сдвигать вправо, опять же за область окна:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.FormCreate(Sender: TObject);
begin
  GroupBox3.Left:=ClientWidth-GroupBox3.Width;
  GroupBox3.Tag:=1;
  Label4.Caption:='>';
  Timer2.Interval:=30;
  Timer2.Enabled:=true;
end;
 
procedure TForm1.Label4Click(Sender: TObject);
begin
  if GroupBox3.Tag = 1 then begin
    label4.Caption:= '<';
    GroupBox3.Tag:= 0;
  end
  else begin
    label4.Caption:= '>';
    GroupBox3.Tag:= 1;
  end;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if (GroupBox3.Tag = 1) and (GroupBox3.Left > ClientWidth-GroupBox3.Width) then
    GroupBox3.Left:= GroupBox3.Left  - 10;
  if (GroupBox3.Tag = 0) and (GroupBox3.Left < ClientWidth) then
    GroupBox3.Left:=GroupBox3.Left + 10;
end;

@Тимур Хамзин · 06.06.2017, 17:46 **[ТС]**

TFullControl, не могу разобраться в коде, если есть возможность , можете выйти на связь в скайпе?

@D1973 · 06.06.2017, 18:00

Комментарий модератора

Тимур Хамзин, Вам стоит перечитать правила форума, которые Вы принимали при регистрации!

П. 4.6 Обсуждение вопросов - только в теме на форуме. Приглашения к обсуждению еще где-либо (в том числе и с помощью системы личных сообщений) запрещены, за исключением коммерческих разделов.

Предупреждение!

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	06.06.2017, 12:29
	Строка 12 надо минус 960. 0

@Тимур Хамзин 0 / 0 / 0 Регистрация: 22.05.2016 Сообщений: 16
	06.06.2017, 14:02 [ТС]
	TFullControl, пробовал , он вообще в другую сторону уходит 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,405 Записей в блоге: 3
	06.06.2017, 14:18
	Тимур Хамзин, Вы, собственно, что сделать хотите? И где полный код Timer2Timer? 0

@Тимур Хамзин 0 / 0 / 0 Регистрация: 22.05.2016 Сообщений: 16
	06.06.2017, 14:45 [ТС]
	D1973, у меня панель выдвигается , но не задвигается обратно, а мне надо что бы она задвигалась 0

@Тимур Хамзин 0 / 0 / 0 Регистрация: 22.05.2016 Сообщений: 16
	06.06.2017, 15:19 [ТС]
	D1973, и я скинул полный код таймера Добавлено через 4 минуты D1973, по нажатию кнопки панель выдвигается влево , а по повторному нажатию она должна задвигаться обратно , но она этого не делает . 0

@Тимур Хамзин 0 / 0 / 0 Регистрация: 22.05.2016 Сообщений: 16
	06.06.2017, 17:46 [ТС]
	TFullControl, не могу разобраться в коде, если есть возможность , можете выйти на связь в скайпе? 0