Помогите с формами разобраться..

← →
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

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

> For i:=0 to FormCount-1 do

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

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

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

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

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

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

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