Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c