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

Вниз

Помогите с формами разобраться..   Найти похожие ветки 

 
captive ©   (2003-07-11 15:26) [0]

Вот есть процедурка..
procedure TFormOsn.Act_SendMesExecute(Sender: TObject);
var
i, FormCount: Integer;
begin
FormCount:=Screen.FormCount;
For i:=0 to FormCount do
begin
If Screen.Forms[i].Tag=Integer(TreeDat.Selected.Data) then
begin
Screen.Forms[i].SetFocus;
Exit;
end;
end;
Application.CreateForm(TFormSendMessage, FormSendMessage);
FormSendMessage.Tag:=1ж
end;

Получается всем уже созданным формам FormSendMessage присвою значение Tag равное 1 или только, что созданному экземпляру формы...


 
Skier ©   (2003-07-11 15:33) [1]

Всем ? А мне кажется что одной. Нет ?


 
Palladin ©   (2003-07-11 15:49) [2]

странная процедурка... работать не будет... только изза 6той строчки...


 
AlexSV ©   (2003-07-11 18:57) [3]

И одной и всем.
Если вызовем процедуру 2 раза, то имеем 2 формы FormSendMessage, у каждой из которых Tag:=1


 
captive ©   (2003-07-12 15:39) [4]


> И одной и всем.
> Если вызовем процедуру 2 раза, то имеем 2 формы FormSendMessage,
> у каждой из которых Tag:=1

Tag в данном случае это ID пользоватлеля вычитанный из БД. Сответственно в цикле проверяем создана ли форма с таким тегом если нет создаем... Вот что задумывалось...


 
Ihor Osov'yak ©   (2003-07-12 16:11) [5]

For i:=0 to FormCount -1 do

А над остальным лень думать..


 
captive ©   (2003-07-12 16:25) [6]


> For i:=0 to FormCount-1 do

С эти понятно...

> Application.CreateForm(TFormSendMessage, FormSendMessage);
> FormSendMessage.Tag:=ID

Вот это как написать, чтоб работыла выше изложенная концепция...


 
Palladin ©   (2003-07-12 16:34) [7]

с чего бы...
FormSendMessage это видимо глобальная переменная в юните, она создана один раз и видимо при запуске приложения...
для осуществления твоей "концепции"

FormSendMessage:=TFormSendMessage.Create(Application);
FormSendMessage.Tag:=ID;


 
Palladin ©   (2003-07-12 17:17) [8]

гы... или даже
with TFormSendMessage.Create(Application) do Tag:=ID;



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

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

Наверх




Память: 0.48 MB
Время: 0.018 c
14-78077
Knight
2003-07-07 22:12
2003.07.24
Какими звонилками пользуется?


3-77758
big_bugzy
2003-07-01 20:06
2003.07.24
Помогите разобраться Insufficient key column information


9-77707
Карлсон
2002-12-21 21:26
2003.07.24
подлодки....


14-78106
Shiza
2003-07-08 11:19
2003.07.24
Как работать с MSDN


1-77898
LKJJ
2003-07-14 11:37
2003.07.24
Что за фигня со StringGrid?