Форма и панель задач

← →
linox (2007-02-08 15:35) [0]

Добрый день. Вопрос:
Нужно сделать информационную форму. Например, есть текущее время и время окончания (рабочего дня :-)), и должно писать на лейбле сколько осталось. Задача:
1. Чтобы форма отображалась в вверху окна
2. Чтобы небыло видно формы на панели задач
3. Чтобы на форме не было кнопок (свернуть, закрыть, максимизировать). Какие свойства нужно поменять?

← →
Evgeniy.G (2007-02-08 16:22) [1]

MainForm.Align := alTop;
MainForm..BorderIcons := [];
ShowWindow(Application.Handle, SW_HIDE);

--

И ВПЕРЁД УЧИТЬСЯ! УЖЕ СОВСЕМ НАРОД ГОЛОВОЙ ДУМАТЬ РАЗУЧИЛСЯ!

← →
linox (2007-02-08 16:33) [2]

начнем дальше:
MainForm.Align := alTop; - растягивает форму на всю ширину экрана, а мне так не нужно....
MainForm..BorderIcons := []; - это я сделал в свойвствах форми (нон)

← →
C@N © (2007-02-08 16:33) [3]

1) Form1.left:=X; form1.top:=Y;
2) Form1.Hide; или form1.visible:=false; но при показе любой формы у тя будет вылезать на панель задач... хотя я как-то извращался и вроде даже вышло... но не помню как делал... тои через API толи еще как-то (((
3)Form1.borderstyle:=bsNone

ЗЫ лучше иконку в трей с хинтом загони... лучшее будетЪ )))

← →
C@N © (2007-02-08 16:35) [4]

ну как я сказал... ShowWindow(Application.Handle, SW_HIDE);
API :)))

← →
Evgeniy.G (2007-02-08 16:51) [5]

to: C@N
>ну как я сказал... ShowWindow(Application.Handle, SW_HIDE);
>API :)))
Кто сказал? Мой пост был первым :)

to: linox
>начнем дальше:
>MainForm.Align := alTop; - растягивает форму на всю ширину экрана, а мне >так не нужно....
>MainForm..BorderIcons := []; - это я сделал в свойвствах форми (нон)

Так перед постановкой вопроса - научитесь излагать свои задачи!

← →
RASkov (2007-02-08 22:58) [6]

> [0] linox (08.02.07 15:35)

program TimeWorkToScreen; uses SysUtils, Windows, Graphics; var Tm: TDateTime; DC: HDC; Cnv: TCanvas; S: String; X: Integer; begin DC:=GetDC(0); Cnv:=TCanvas.Create; Cnv.Handle:=DC; Cnv.Brush.Color:=clNavy; Cnv.Font.Name:="Times new roman"; Cnv.Font.Style:=[fsBold]; Cnv.Font.Color:=clYellow; Cnv.Font.Size:=12; While True do begin Tm:=StrToTime("18:00"); if Time>Tm then S:="Рабочий день окончен" else S:=FormatDateTime(TimeToStr(Time)+"> До конца рабочего дня осталось: h ч. mm м. ss с.", Tm-Time); X:=(GetSystemMetrics(SM_CXSCREEN)-Cnv.TextWidth(S)) div 2; Cnv.TextOut(X, 3, S); Sleep(5); end; ReleaseDC(0, DC); end.

← →
linox (2007-02-09 13:25) [7]

2 RASkov:
БОЛЬШОЕ спасибо.

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