Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
ВнизДочернияя форма поверх всех остальных? Найти похожие ветки
← →
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]2 Marser © (14.07.03 01:00)
Check mail
← →
Wowa-K (2003-07-14 05:15) [4]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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c