Текущий архив: 2004.08.15;
Скачать: CL | DM;
Вниз
Управлять динамически созданными окнами Найти похожие ветки
← →
Lizard (2004-08-02 13:13) [0]Уважаемые мастера и мастерицы ;)
...
uses unit2;
...
var
newform:Tform2;
...
function wndop(capt:string):boolean;stdcall;
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
ms.WriteComponent(form2);
newform := Tmsform.CreateNew(Application);
ms.Position := 0;
ms.ReadComponent(newform);
newform.Show;
newform.Caption:=capt;
result:=true;
finally
ms.Free
end;
end;
я использую эту функцию для создания окна которое "описано" в unit2.pas...все хорошо только как мне выборочно управлять
созданными этой функцией окнами???
заранее благодарю Евгений.
← →
Lizard (2004-08-02 13:14) [1]простите поправлюсь
...
uses unit2;
...
var
newform:Tform2;
...
function wndop(capt:string):boolean;stdcall;
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
ms.WriteComponent(form2);
newform := Tform2.CreateNew(Application);
ms.Position := 0;
ms.ReadComponent(newform);
newform.Show;
newform.Caption:=capt;
result:=true;
finally
ms.Free
end;
end;
← →
Smithson © (2004-08-02 13:15) [2]Сделай, чтобы функция врозвращала указатель на созданное окно или nil при неудаче. И объуправляйся.
← →
Lizard (2004-08-02 13:26) [3]Млин...добрый человек подскажи как...плз...
Страницы: 1 вся ветка
Текущий архив: 2004.08.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
