Иконка около часов

← →
Budy © (2004-02-26 17:02) [0]

Приветствую всех!
Нужно при Button1Click убрать окно с панели, где все окна и свернуть в панель, где часы (надеюсь достурно объяснил). Но принажатии на иконку проги (та что у часов) вывести PopupMenu1.
Заранее спасибо!

← →
ssk (2004-02-26 17:04) [1]

это квадратная такая? и цветная? не, тут никто не знает...

← →
Алхимик © (2004-02-26 17:08) [2]

Читаем местный FAQ. Там написано как убрать программу в Tray не только при
Button1Click, но и при Button2Click.

← →
Budy © (2004-02-26 17:12) [3]

Да нету времени читать... Экзамены учу...
Может кто код даст??

← →
Palladin © (2004-02-26 17:18) [4]

А время в форуме сидеть есть? Знаем мы вас... это прием у вас такой... про время...

← →
Fay © (2004-02-26 17:23) [5]

Неплохим программистам пора бы такие вещи писать самим.

← →
Александр1 (2004-02-26 17:28) [6]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI,
StdCtrls, Menus, ExtCtrls, Buttons, ComCtrls, ToolWin, IniFiles, DdeMan,
ExtDlgs, Jpeg, MMSystem, FileCtrl, ImgList, CommCtrl,ComObj, ShlObj,
MPlayer;

const MYWM_NOTIFYICON = WM_USER;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N4t75647541: TMenuItem;
Button1: TButton;
N11111111111: TMenuItem;
N21: TMenuItem;
N41: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N4t75647541Click(Sender: TObject);
private
{ Private declarations }
public
Procedure IconCallBackMessage(var Mess: TMessage); message WM_USER+100;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.IconCallBackMessage(var Mess: TMessage);
var
sEventLog: String;
//x,y:integer;
lppoint : TPoint;
begin
case Mess.lParam of

// Поиестите сюда все что хотите. Например, вызов контекстного иеню при
// нажатии правой кнопки иыши.
//WM_LBUTTONDBLCLK: sEventLog:="Двойной щелчок левой кнопкой";
WM_LBUTTONDOWN: begin
application.MainForm.Show;//ShowMessage("You pressesed right Button of mouse.");
popupmenu1.Popup(lpPoint.x,lpPoint.y);

end;
//WM_RBUTTONDOWN: sEventLog:=PopupMenu1.Click;

{WM LBUTTONUP. sEventLog := "Отжатие левой кнопки мыши";
WM MBUTTONDBLCLK: sEventLog := Двойной.щелчок:средней кнопкой ,.
ИИ MBUTTONDOWN: sEventLog := "Нажатие средней кнопки мыши";
ИИ MBUTTOHUP: sEventLog := "Отжатие средней кнопки мыши";
WM МООВЕНОЧЕ: sEventLog := "Перемещение мыши";
WM MOUSEWHEEL: sEventLog „= "Вращение колесика мыши";
WM RBUTTONDBLCLK: зЕчеп11оц := "Двойной щелчок правой кнопкой";
WM RBUTTONDOWN: з
ИИ RBUTTONUP: sEventLog := "Отжатие правой кнопки мыши";}
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
nid: TNotifyIconData;
{+++}
begin

with nid do begin
cbSize:= SizeOf(TNotifyIconData);
Wnd:= Form1.Handle;
uID:= 1;
uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage:= WM_USER + 100;
hIcon:= Application.Icon.Handle;
szTip:="WinSoft";
end;
Shell_NotifyIcon(NIM_ADD, @nid);
{------------}
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
nid: TNotifyIconData;
begin
with nid do begin
cbSize:= SizeOf (TNotifyIconData);
Wnd:= Form1. Handle;
uID:=1;
uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage:=WM_USER + 100;
hIcon:= Application.Icon.Handle;
szTip := "WinSoft";
// Все, что указано выше, не является обязательным
end;
Shell_NotifyIcon(NIM_DELETE, @nid);

end;

procedure TForm1.N4t75647541Click(Sender: TObject);
begin
Form1.Close;
end;

end.

← →
Ru © (2004-02-26 17:31) [7]

>Budy © (26.02.04 17:12) [3]
>Да нету времени читать... Экзамены учу...
>Может кто код даст??

будто если кто даст читать не надо ...

← →
Marser © (2004-02-26 18:00) [8]

Из анкеты автора:
Увлечения / хобби Юный (неплохой) программист, учусь на хорошего программиста! Интересное о себее Не стоит
:-))

← →
Delirium © (2004-02-26 18:02) [9]

Очередной дятел :-/

← →
Гарри Поттер © (2004-02-26 18:03) [10]

:-) Судя по анкете у автора есть время читать хельп :-)

← →
TUser © (2004-02-26 18:03) [11]

> убрать окно с панели, где все окна и свернуть в панель

ну, с панелями тебе на койкой-нибудь сайт типа www.allputans.ru надо

← →
VMcL © (2004-02-26 18:07) [12]

>>Marser © (26.02.04 18:00) [8]
>Из анкеты автора:
>Увлечения / хобби
>Юный (неплохой) программист, учусь на хорошего программиста!
>Интересное о себее
>Не стоит

И зачем такие интимные подробности...

← →
Budy © (2004-02-26 18:09) [13]

[4]: Нифига ведь ты не прав. На самом деле я выхожу сейчас на пять-семь минут. Это раньше было по часу-по три, а вот счас учу математику.
[5]: Ну че блин, не все же я должен сразу то запоминать... :(
[6]: Благодарю.
[7]: Почему все воспринимают через зад... ЗЫ.Я качаю, потом читаю, не вечно же я буду учиться...
[9]: Слушай, я тебе не навязываю, но ты не прав!

← →
Palladin © (2004-02-26 18:14) [14]

> Budy © (26.02.04 18:09) [13]

И че эт тебе посередине обучения математике трей этот в голову втемяшился...

← →
eukar © (2004-02-26 18:19) [15]

Подготовка к экзаменам в феврале (это если не сам и экзамены))) - это ИМХО клиника. Не то слишком рано, не то уже поздно...

>Александр1 (26.02.04 17:28) [6]
На данном форуме отвечать на подобный вопрос сичтается по крайней мере некультурным

Marser © (26.02.04 18:00) [8]
Не там выделения сделал
Юный (неплохой) программист, учусь на хорошего программиста!
Интересное о себее
Не стоит
:-))

LMD

А мне вот это больше понравилось
WM RBUTTONDBLCLK: зЕчеп11оц := "Двойной щелчок правой кнопкой";

А вообще Цезарь говорят тоже умел делать два дела одновременно, но ИМХО автора не Юлием зовут.

eukar © (26.02.04 18:19) [15]
Согласен.

Иконка около часов Найти похожие ветки