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

Вниз

Форму на панель задач   Найти похожие ветки 

← →
my_name   (2004-07-08 22:18) [0]

Подскажите как на панель задач (где длинные кнопочки) поместить динамически создаваемую форму.

---

← →
DeadMeat ©   (2004-07-08 22:49) [1]

procedure ПоместитьФормуТудаГдеДлинныеКнопочки (АНадо:boolean);
var bufrect:TRect;
   clx,cly,clw,clh:integer;
begin
if not АНадо then exit;
SystemParametersInfo (SPI_GETWORKAREA,0,@bufrect,0);
clx:=bufrect.Left;
cly:=bufrect.Top;
clw:=bufrect.Right;
clh:=bufrect.Bottom;

if clx<>0 then
begin
ДинамическиСоздаваемаяФорма.Left:=0;
ДинамическиСоздаваемаяФорма.Top:=clh div 2;
end
else
if cly<>0 then
begin
 ДинамическиСоздаваемаяФорма.Left:=clw div 2;
 ДинамическиСоздаваемаяФорма.Top:=0;
end
else
 if clh<>Screen.Height then
 begin
  ДинамическиСоздаваемаяФорма.Left:=clw div 2;
  ДинамическиСоздаваемаяФорма.Top:=Screen.Height-ДинамическиСоздаваемаяФорма.Height div 2;;
 end
 else
 begin
  ДинамическиСоздаваемаяФорма.Left:=Screen.Width-ДинамическиСоздаваемаяФорма.Width div 2;
  ДинамическиСоздаваемаяФорма.Top:=clh div 2;
 end;
end;

А вот у меня короткие кнопочки..., так что писал почти вслепую... и у меня это может не работать, поэтому учти таких юзверей, когда программу будешь распространять...

З.Ы. ПЕрдупЕрждаю. Чтобы положить значек своей программы туда, где часики, сходи на фак...

---
...Death Is Only The Begining...

---

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

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

Наверх

Память: 0.47 MB
Время: 0.048 c