| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stay on top [D6, WinXP]

Treiber ©   (2002-10-20 03:30:00) 

Uvagajemije gospoda programmisti ne mogli bi vi pomoch s vot takoj vot problemkoj, mve hotelos bi sdelat Radiobutton kotorij bi vkljuchal Formstyle dlja TForm "Stay on top" , a posle vikluchenija staval snovo normalnim, no k sageleniju ja ne snaju syntaxa etoj kommandi.
Pomogite pogalujsta

---

Treiber   (2002-10-20 12:43:00) [1]

Vo pervich vsem spasibo sa otveti ;)

to Qpwoe!

Ti Prav ja novichok, nachaal rasbiratsja v delphi s proshloj nedeli ;)

---

racoon   (2002-10-20 09:48:00) [2]

Есть другой способ, немного более муторный, но результат лучше:
SetWindowPos(Handle, hwnd_TopMost, 0, 0, 0, 0, swp_NoMove or
swp_NoSize or SWP_NOACTIVATE)
и соотеветвенно:
SetWindowPos(Handle, hwnd_NoTopMost, 0, 0, 0, 0, swp_NoMove or swp_NoSize or SWP_NOACTIVATE);

---

Qpwoe!   (2002-10-20 08:36:00) [3]

procedure TForm1.RadioButton1Click(Sender: TObject);
begin

if sender<>radiobutton1 then form1.FormStyle:= fsnormal
else form1.FormStyle:=Fsstayontop;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
form1.RadioButton1Click(nil);
//your commands...
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
form1.RadioButton1Click(nil);
//your commands...
end;


A voobshe ya smotry ti novichok... ti skoka za delphi rabotaesh?

---

Treiber   (2002-10-20 04:13:00) [4]

Ne ostavte posgalujsta mo

---

Наверх