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);

Vo pervich vsem spasibo sa otveti ;)

to Qpwoe!

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

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