Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Form2 Minimieren/verschwinden lassen

  Alt 14. Mai 2006, 12:05
achso, ich dachte du meinst den taskbareintrag.

[edit]
hier die Lösung:
Delphi-Quellcode:
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
  private
    procedure FWM_SYSCOMMAND(var AMsg: TMessage); message wm_syscommand;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FWM_SYSCOMMAND(var AMsg: TMessage);
begin
  if AMsg.WParam = SC_MINIMIZE then
    Hide
  else
    inherited;
end;


end.
[/edit]
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat