Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: 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 вся ветка

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
6-101415
Diamus
2002-08-30 15:32
2002.10.31
Проблема с обрывом соединения


3-101134
Lola
2002-10-09 14:58
2002.10.31
Создание альяса базы в ODBC в Inno Setup


4-101570
ai
2002-09-17 12:36
2002.10.31
TbitMap.SaveToFile - не могу открыть в Photoshop


14-101510
Anatoly Podgoretsky
2002-10-09 19:25
2002.10.31
Потрепаться о ПЕРЕПИСи


3-101152
Sergey-ZZZ
2002-10-10 12:21
2002.10.31
Преобразование типов данных MSSQL