Форум: "Основная";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
ВнизФорма и панель задач Найти похожие ветки
← →
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:
БОЛЬШОЕ спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.046 c