Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
3 / 3 / 1
Регистрация: 06.05.2018
Сообщений: 95
1

Не разворачивается форма

26.02.2019, 12:16. Просмотров 673. Ответов 7
Метки нет (Все метки)


Доброго времени суток. Запускаю программу открываются 2 окна, второе окно я закрываю, а на закрывание 2 формы есть вот такой код:
Delphi
1
form2.Hide;
Затем я сворачиваю 1 форму и всё, больше эта форма не разворачивается, хотя если активная какая-нибудь папка она становится не активной, и внизу при наведении на иконку программы форма подсвечивается. Что делать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2019, 12:16
Ответы с готовыми решениями:

Форма постоянно разворачивается!
Всем здравствуйте! Delphi для меня темный лес, но так сложилось, что нужно в нем сделать одну...

Не разворачивается форма на весь экран
Добрый день уважаемые форумчане! Windows 7 x64; Delphi XE7 Вот я создал некую форму и при...

Не разворачивается форма при нажатии кнопки на панели задач
Здравствуйте! Я, конечно, в Delphi только лишь начинающий. У меня возникла проблема следующего...

Не разворачивается система на пк
Ситуация такая, полетела мать на компьютере LENOVO M920s, система стояла там корпоративная,...

__________________
Помогаю в написании студенческих работ здесь.
7
Продавец времени
4920 / 2696 / 621
Регистрация: 12.03.2015
Сообщений: 13,089
26.02.2019, 12:24 2
Цитата Сообщение от Илья1302 Посмотреть сообщение
Что делать?
Не сворачивать 1-ю форму.
-----
дай проект
0
3 / 3 / 1
Регистрация: 06.05.2018
Сообщений: 95
26.02.2019, 12:33  [ТС] 3
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, sLabel, ExtCtrls;
 
type
  TForm6 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Memo1: TMemo;
    ListBox3: TListBox;
    ListBox4: TListBox;
    Memo2: TMemo;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Image1: TImage;
    SpeedButton6: TSpeedButton;
 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form6: TForm6;
 
implementation
 uses Unit1, Unit5;
{$R *.dfm}
 
 
 
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form6.Close;
form1.Close;
end;
 
 
 
 
 
 
 
procedure TForm6.SpeedButton2Click(Sender: TObject);
var i,k,r:integer;
begin
For i := ListBox1.Items.Count-1 DownTo 0 Do   begin
r:=0;
If ListBox1.Selected[i] then  begin
     if  ListBox3.Items.Count-1=-1 then begin
     ListBox3.Items.add(ListBox1.Items[i]);
     ListBox4.Items.add(ListBox2.Items[i]);
     r:=0;
     end else begin
     For k := ListBox3.Items.Count-1 DownTo 0 Do
      if listbox1.items[i]=listbox3.items[k] then r:=1;
      if r=0 then begin
     ListBox3.Items.add(ListBox1.Items[i]);
     ListBox4.Items.add(ListBox2.Items[i]);
     end;
      end;
End;
end;
 
end;
 
 
 
 
 
 
 
procedure TForm6.SpeedButton6Click(Sender: TObject);
begin
ListBox1.Clear;
ListBox2.Clear;
ListBox3.Clear;
ListBox4.Clear;
memo1.clear;
memo2.clear;
form1.Show;
form6.hide;
closerif:=1;
form5.timer1.Enabled:=false;
form5.sLabel1.visible:=true;
form5.sLabel2.visible:=true;
form5.sLabel3.visible:=true;
form5.sLabel4.caption:='';
form5.close;
 
end;
 
end.
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, sLabel, Buttons;
 
type
  TForm5 = class(TForm)
    Image1: TImage;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    Timer1: TTimer;
    sLabel1: TsLabel;
    sLabel4: TsLabel;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
 
implementation
uses Unit1;
 
{$R *.dfm}
 
procedure TForm5.FormShow(Sender: TObject);
begin
 
sLabel2.caption:=form5.caption + ',';
timer1.Enabled:=true;
SetForegroundWindow(Form5.Handle);
 SetWindowPos(Form5.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;
 
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if closerif=1 then form1.Show else form5.Hide;
end;
 
procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if closerif=1 then  form1.Show else  form5.Hide;
end;
 
procedure TForm5.Timer1Timer(Sender: TObject);
var message:TStringList;
begin
 
if FileExists(putprofile) then begin
message:=TStringList.Create;
message.LoadFromFile(putprofile);
sLabel1.visible:=false;
sLabel2.visible:=false;
sLabel3.visible:=false;
sLabel4.caption:=message.text;
form5.Show;
DeleteFile(putprofile);
end;
 
end;
 
procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
closerif:=1;
timer1.Enabled:=false;
sLabel1.visible:=true;
sLabel2.visible:=true;
sLabel3.visible:=true;
sLabel4.caption:='';
form1.Show;
form5.close;
 
end;
 
end.
0
Продавец времени
4920 / 2696 / 621
Регистрация: 12.03.2015
Сообщений: 13,089
26.02.2019, 12:36 4
Илья1302, и как мне без остальных файлов это отлаживать?
0
Matan!
27.02.2019, 13:37
  #5

Не по теме:

А ещё лучше архив с проектом прикрепи. Влом как-то с нуля бросать все компоненты.

0
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
27.02.2019, 13:47 6
Цитата Сообщение от Илья1302 Посмотреть сообщение
а на закрывание 2 формы есть вот такой код:
а может лучше сделать так?
Delphi
1
Form2.Close;
0
Модератор
1264 / 857 / 206
Регистрация: 31.05.2013
Сообщений: 5,855
Записей в блоге: 6
27.02.2019, 16:05 7
Цитата Сообщение от Илья1302 Посмотреть сообщение
Запускаю программу открываются 2 окна
А нафига при запуске сразу два окна? Если второе,третье,..N-ое окно появляются при каком-то действии из первого, то имеет смысл сделать их модальными.
0
D1973
27.02.2019, 16:12     Не разворачивается форма
  #8

Не по теме:

Или это очередная "авторизация"???

0
27.02.2019, 16:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2019, 16:12
Привет! Вот еще темы с ответами:

Не разворачивается терминал
Здравствуйте все. Помогите пожалуйста решить проблему. Есть сервер 2003, подключаемся к нему через...

Не разворачивается меню
Все работает за одним исключением 1. Первый скриншот - Полный просмотр 2. Второй скриншот -...

Не разворачивается Web приложение
Создал свое первое Web приложение на ASP.NET, просто разместил кнопку, в Visual Studio запускается...

Приложение сворачивается в панель и не разворачивается
Скомпилировал Project.exe, проверил на своём ПК - всё работает. Переношу Project.exe на др. ПК,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.