如何用Delphi实现
还有,有没有办法做一个任务栏呢?
就是程序最大化不会超过人物栏的位置?
另外,如果想知道一个用处的函数,除了根据英文的拼写来猜函数,还有什么办法来查MSDN来知道此函数?
4 个解决方案
#1
没人可以说说吗?
#2
不会,但帮你问。。。。
楼下的来回答。
楼下的来回答。
#3
procedure TForm1.Button1Click(Sender: TObject);
begin
//覆盖任务栏
Self.BorderStyle := bsNone;
Self.Left := 0;
Self.Top := 0;
Self.Width := Screen.Width;
Self.Height := Screen.Height;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//保留任务栏
Self.BorderStyle := bsNone;
Self.Left := Screen.WorkAreaLeft;
Self.Top := screen.WorkAreaTop;
Self.Width := Screen.WorkAreaWidth;
Self.Height := Screen.WorkAreaHeight;
end;
begin
//覆盖任务栏
Self.BorderStyle := bsNone;
Self.Left := 0;
Self.Top := 0;
Self.Width := Screen.Width;
Self.Height := Screen.Height;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//保留任务栏
Self.BorderStyle := bsNone;
Self.Left := Screen.WorkAreaLeft;
Self.Top := screen.WorkAreaTop;
Self.Width := Screen.WorkAreaWidth;
Self.Height := Screen.WorkAreaHeight;
end;
#4
....
啊??可以这样啊???????
任务栏的默认最上没用了???
啊??可以这样啊???????
任务栏的默认最上没用了???
#1
没人可以说说吗?
#2
不会,但帮你问。。。。
楼下的来回答。
楼下的来回答。
#3
procedure TForm1.Button1Click(Sender: TObject);
begin
//覆盖任务栏
Self.BorderStyle := bsNone;
Self.Left := 0;
Self.Top := 0;
Self.Width := Screen.Width;
Self.Height := Screen.Height;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//保留任务栏
Self.BorderStyle := bsNone;
Self.Left := Screen.WorkAreaLeft;
Self.Top := screen.WorkAreaTop;
Self.Width := Screen.WorkAreaWidth;
Self.Height := Screen.WorkAreaHeight;
end;
begin
//覆盖任务栏
Self.BorderStyle := bsNone;
Self.Left := 0;
Self.Top := 0;
Self.Width := Screen.Width;
Self.Height := Screen.Height;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//保留任务栏
Self.BorderStyle := bsNone;
Self.Left := Screen.WorkAreaLeft;
Self.Top := screen.WorkAreaTop;
Self.Width := Screen.WorkAreaWidth;
Self.Height := Screen.WorkAreaHeight;
end;
#4
....
啊??可以这样啊???????
任务栏的默认最上没用了???
啊??可以这样啊???????
任务栏的默认最上没用了???