Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c