Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Как написать условие   Найти похожие ветки 

 
alexdn ©   (2012-08-25 14:33) [0]

Если form4 существует, то.. if form4.visible не подходит, т.к. форма может быть закрыта.


 
turbouser ©   (2012-08-25 14:51) [1]

findcomponent etc


 
alexdn ©   (2012-08-25 15:01) [2]

> turbouser ©   (25.08.12 14:51) [1]
как это синтаксически написать? if findcomponent(form4)=true не подходит..


 
turbouser ©   (2012-08-25 15:06) [3]


> alexdn ©   (25.08.12 15:01) [2]


>  findcomponent(form4)=true

nil


 
turbouser ©   (2012-08-25 15:06) [4]


> alexdn ©   (25.08.12 15:01) [2]


>  findcomponent(form4)=true

nil


 
turbouser ©   (2012-08-25 15:07) [5]

о как


 
turbouser ©   (2012-08-25 15:09) [6]


> alexdn ©

странно, что такое спрашиваешь. хм


 
alexdn ©   (2012-08-25 15:23) [7]

> turbouser ©   (25.08.12 15:09) [6]
я обычно спрашиваю о том, чего не знаю или с чем первый раз сталкиваюсь) что логично)..


 
alexdn ©   (2012-08-25 15:35) [8]

вот - if Application.findcomponent("form4")=Nil


 
Inovet ©   (2012-08-25 15:50) [9]

А если у тебя две таких формы?


 
brother ©   (2012-08-25 16:04) [10]

имхо if form4 <> nil then ...


 
Amir   (2012-08-25 16:12) [11]

Поместить после создания формы ссылку на нее в TList
Проверять по условию
if TForm(List.items[i])  is TForm4 then ...


 
turbouser ©   (2012-08-25 16:27) [12]


> Inovet ©   (25.08.12 15:50) [9]

ССЗБ


 
turbouser ©   (2012-08-25 16:29) [13]


>  Inovet ©   (25.08.12 15:50) [9]

Хотя, кое где у меня есть и убийство и пересоздание. Да.


 
Inovet ©   (2012-08-25 17:11) [14]

> [12] turbouser ©   (25.08.12 16:27)
> > Inovet ©   (25.08.12 15:50) [9]
>
> ССЗБ

Да ну, почему бы не открыть несколько одниаковых форм с разными данными одновременно.


 
turbouser ©   (2012-08-25 17:21) [15]


> Inovet ©   (25.08.12 17:11) [14]


> Да ну, почему бы не открыть несколько одниаковых форм с
> разными данными одновременно.

угу. и потом искать form4. а их там несколько.
если бы автор мог себе позволить иметь несколько одинаковых форм - вопроса бы не возникло. в прочем, неизвестно, как всегда, что там у тс..


 
alexdn ©   (2012-08-25 17:29) [16]

> turbouser ©   (25.08.12 16:29) [13]
> Хотя, кое где у меня есть и убийство и пересоздание. Да.
Вот, убийство и пересоздание и было -
if Application.findcomponent("form4")<>Nil then begin
 form4.Close;
Application.CreateForm(TForm4, Form4);
end;


 
turbouser ©   (2012-08-25 17:56) [17]


> alexdn ©   (25.08.12 17:29) [16]

православное Free ^))


 
turbouser ©   (2012-08-25 18:01) [18]

var C:tcomponent;
c:=Application.findcomponent("form4");
if Assigned(c) then
form4.free else
Application.CreateForm(TForm4, Form4);
end;
как-то так.


 
turbouser ©   (2012-08-25 18:02) [19]

form4.free = c.free


 
turbouser ©   (2012-08-25 18:03) [20]

да и CreateForm - эт чета новенькое?


 
Медвежонок Пятачок ©   (2012-08-25 18:22) [21]

Новенькое, ага.
Примерно с первой версии дельфы.


 
Dimka Maslov ©   (2012-08-25 18:38) [22]

for i := 0 to Screen.FormCount do if Screen.Forms[i] is TForm4 then Screen.Forms[i].Close;


 
turbouser ©   (2012-08-25 19:01) [23]


> Медвежонок Пятачок ©   (25.08.12 18:22) [21]

хз. сырцов дама нет, дельфей нет :) каааааайф


 
Dennis I. Komarov ©   (2012-08-25 19:32) [24]

Зачем нужна Form4 и как ты ее потерял?
Да, еще что значит "существует", потому как:
Если form4 существует, то.. if form4.visible не подходит, т.к. форма может быть закрыта.?


 
turbouser ©   (2012-08-25 21:27) [25]


> Dennis I. Komarov ©   (25.08.12 19:32) [24]

кури MDI.


 
Dennis I. Komarov ©   (2012-08-26 11:34) [26]


> кури MDI.

а) У ТС нет ни слова о MDI.
б) Это лишь объясняет, как он ее "потерял".
в) В этом случае, вообще не вижу смысла хранить указатель.


 
turbouser ©   (2012-08-26 13:06) [27]


> Dennis I. Komarov ©   (26.08.12 11:34) [26]


a) это объясняет проблему. в прочем, ты прав.
б ) не совсем
в) +1


 
AV ©   (2012-08-28 01:29) [28]

конкретно form4 - указатель, указатель хватит просто проверить на nil

> if form4 <> nil then



> А если у тебя две таких формы?

указатель все равно ссылается на один экземпляр.

А если стоит задача найти все формы класса TForm4, то я бы выбрал

> for i := 0 to Screen.FormCount do if Screen.Forms[i] is
> TForm4 then


 
Inovet ©   (2012-08-28 08:48) [29]

> [28] AV ©   (28.08.12 01:29)
> > А если у тебя две таких формы?
>
> указатель все равно ссылается на один экземпляр.

Ну так там же куда-то "терятются" формы.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.05 c
2-1345815783
Разведка
2012-08-24 17:43
2013.03.22
немогу найти причину ошибки


15-1333826589
Дмитрий С
2012-04-07 23:23
2013.03.22
Занимает ли пустой файл блок в fat32 или ext3?


2-1342205003
vasa777
2012-07-13 22:43
2013.03.22
сплойт


15-1334144994
Дмитрий С
2012-04-11 15:49
2013.03.22
Что вообще такое SLIC?


2-1347962879
KSergey
2012-09-18 14:07
2013.03.22
Реализация в Delphi массива array[0..10] of array of ...