Дочернияя форма поверх всех остальных?

← →
void1987 (2003-07-14 00:51) [0]

Как дочернюю форму установить поверх всех остальных, да еще чтоб при сворачивании/разворачивании главной формы она никуда не исчезала?

← →
Marser © (2003-07-14 01:00) [1]

Form1.ShowModal:=mrCancel;

← →
Юрий Зотов © (2003-07-14 02:02) [2]

> void1987

Боюсь, никак. На то она и дочерняя.

← →
Ihor Osov'yak © (2003-07-14 02:06) [3]

function EnumChildProc(AChildHandle: HWND; AParam: PChar): LongBool; stdcall;
var
LBuff: array[0..255] of Char;
begin
// Continue enumeration by default
Result := true;

// No caption - keep trying
if GetWindowText(AChildHandle, LBuff, SizeOf(LBuff) - 1) = 0 then
Exit;

// Check the text
if StrComp(AParam, LBuff) = 0 then
begin
// Do what you want here
OpenIcon(AChildHandle);
BringWindowToTop(AChildHandle);

// Match found - do not enumerate no more
Result := false;
end;
end;

Дочернияя форма поверх всех остальных? Найти похожие ветки