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

Вниз

Как изменить свойства чужой формы (и можно ли такое вообще?)   Найти похожие ветки 

 
Rus   (2003-05-20 13:15) [0]

Доброго времени.
Сабж.

Имеется программа. Время от времени выскакивает окно в котором
FormStyle = fsStayOnTop.

Можно ли как-нить достучаться до этого свойства из парралельно запущенной программы и заменить его на fsNormal?

Обе программы на Delphi6.


 
VMcL ©   (2003-05-20 13:23) [1]

SetWindowPos


 
Digitman ©   (2003-05-20 13:26) [2]

ответ на вопрос - в исходниках :

procedure TCustomForm.CreateWnd;
var
ClientCreateStruct: TClientCreateStruct;
begin
inherited CreateWnd;
if NewStyleControls then
if BorderStyle <> bsDialog then
SendMessage(Handle, WM_SETICON, 1, GetIconHandle) else
SendMessage(Handle, WM_SETICON, 1, 0);
if not (csDesigning in ComponentState) then
case FormStyle of
fsMDIForm:
begin
with ClientCreateStruct do
begin
idFirstChild := $FF00;
hWindowMenu := 0;
if FWindowMenu <> nil then hWindowMenu := FWindowMenu.Handle;
end;
FClientHandle := Windows.CreateWindowEx(WS_EX_CLIENTEDGE, "MDICLIENT",
nil, WS_CHILD or WS_VISIBLE or WS_GROUP or WS_TABSTOP or
WS_CLIPCHILDREN or WS_HSCROLL or WS_VSCROLL or WS_CLIPSIBLINGS or
MDIS_ALLCHILDSTYLES, 0, 0, ClientWidth, ClientHeight, Handle, 0,
HInstance, @ClientCreateStruct);
FClientInstance := MakeObjectInstance(ClientWndProc);
FDefClientProc := Pointer(GetWindowLong(FClientHandle, GWL_WNDPROC));
SetWindowLong(FClientHandle, GWL_WNDPROC, Longint(FClientInstance));
end;

fsStayOnTop:
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or
SWP_NOSIZE or SWP_NOACTIVATE);

end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-94835
qwerty2
2003-05-19 18:28
2003.05.29
DCOM


3-94759
gizar
2003-05-07 16:58
2003.05.29
Lookup


1-94968
edicon
2003-05-18 19:23
2003.05.29
Опять ExcelApplication


7-95146
Андрей Терехов
2003-03-30 18:04
2003.05.29
Отображение прогресса копирования


1-94899
Zew
2003-05-16 21:17
2003.05.29
Форма не рисовалась