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

Stay on top   Найти похожие ветки 

← →
Treiber ©   (2002-10-20 03:30) [0]

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 04:13) [1]

Ne ostavte posgalujsta mo

---

← →
Qpwoe!   (2002-10-20 08:36) [2]

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?

---

← →
racoon   (2002-10-20 09:48) [3]

Есть другой способ, немного более муторный, но результат лучше:
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);

---

← →
Treiber ©   (2002-10-20 12:43) [4]

Vo pervich vsem spasibo sa otveti ;)

to Qpwoe!

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

---

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

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



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