如何實現這樣的窗體風格﹖(50分)

F

fancy105

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #1

在VB中﹐窗體有ShowOnTray屬性﹐但在Delphi中找不到相對應的屬性。
這個屬性是要實現一個窗體在其它風格不變的基礎上﹐隱藏它在任務
欄上的按鈕﹐應該怎么實現﹐不是很難吧﹐我卻不知道。麻煩各位﹗

 

J

j5203

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #2

你用“托盘”或“trayicon”搜一下就知道了。

 

C

cfx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #3

我这里这里有实现的控件,要不要??
自己拿源代码一看便知道了,

 

F

fancy105

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #4

不要想得太復雜了﹐我不是要把圖標放到任務欄上﹐
而是要將程序的窗體在任務欄上的按鈕隱藏﹐但又
不能把窗體也隱藏了（用ShowWindow)。注意﹐也
不要將窗體的其它風格也改了（如把最大化按鈕去掉
了）。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #5

直接用FORM1.Hide
当要重新将它显示的时候用
FORM1.Visible:= true就可以了。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #6

我错了。再想想。

 

M

mikegong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #7

i have TrayIcon
if u want mail me :link_mike@163.net

 

風

風

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #8

是不是用mdi窗口

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #9

好象做不到既有FORM显示，任务栏上又没有任务按钮。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #10

...
implementation

function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
; RegisterServiceProcess(GetCurrentProcessID,1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
; RegisterServiceProcess(GetCurrentProcessID,0);
end;

听说98下面可以2000下面不行，98没试过。
我用2000试确实不行。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #11

有FORM，在任务栏无按钮：
procedure TForm1.FormCreate(Sender: TObject);
begin
; ShowWindow(Application.Handle, SW_HIDE);
; SetWindowLong(Application.Handle, GWL_EXSTYLE,
; ; GetWindowLong(Application.Handle, GWL_EXSTYLE)
; ; or WS_EX_TOOLWINDOW );
; ShowWindow(Application.Handle, SW_SHOW);
end;

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #12

如果想在按ctrl_alt_del看不到程序，请将application.title设为''
可惜在W2K中的进程里看得到。

 

F

fancy105

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #13

yhaochuan貼的才是我要的。謝謝﹗