[Help] Fenster aus Sysbar...

[Gabberjool]

Hallo...
Ich wollte eine sidebar schrieben jedoch bringe ich das Fenster nicht aus dem sysbar raus.
Ich hoffe ihr versteht was ich meine ich weiss nicht wie ich das beschrieben sollte finde nicht die richtigen worte dazu und deshalb finde ich bei der sufu auch nicht viel.

Es geht um das...

http://s10b.directupload.net/images/...p/kggb9ec7.jpg

Wie schafe ich es das man das da unten nicht mehr sieht ?

Liebe grüsse ralf

[Mithrandir]

Deine Delphi-Version zu wissen wäre ganz toll...

Ab 2007 gibt es die Eigenschaft

Delphi-Quellcode:

Application.MainFormOnTaskbar

Ansonsten hilft dir vielleicht das hier: http://www.delphipraxis.net/internal...=609083#609083

Gruß,
Daniel

[Gabberjool]

Es wäre DELPHI 7 werd mir das mal anschauen.
Danke

[Gabberjool]

Zitat:

Zitat von Gabberjool

Es wäre DELPHI 7 werd mir das mal anschauen.
Danke

edit//
Hat leider nicht funktioniert weil er:
[Fehler] Unit1.pas(25): Undefinierter Bezeichner: 'HideFromTaskBar'

[Bernhard Geyer]

Zitat:

Zitat von Gabberjool

Zitat:

Zitat von Gabberjool

Es wäre DELPHI 7 werd mir das mal anschauen.
Danke

edit//
Hat leider nicht funktioniert weil er:
[Fehler] Unit1.pas(25): Undefinierter Bezeichner: 'HideFromTaskBar'

D2007 ist ja auch eine andere (neuere) Delphi-Version als Delphi7

[Gabberjool]

ich meinte ja auch den link von Daniel:
http://www.delphipraxis.net/internal...=609083#609083

[Gabberjool]

Habe nun das gefunden:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SysCommand;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Hide
  else
    inherited;
end;

procedure TForm1.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle, GW_OWNER);
  ShowWindow(Owner, SW_HIDE);
end;

end.

Jedoch ist er nur weg wen ich es minimiere... könnte man daran was machen damit er von haus aus nicht Angezeigt wird.

[Gabberjool]

*push*

keiner sonst ne Idee ?

[Gabberjool]

*push again*

Hat etwa noch nie jemand versucht den Taskbar auszublenden seit es D7 gibt...

[Reinhardtinho]

Hast du das schon probiert: http://www.swissdelphicenter.ch/de/showcode.php?id=54 ?