(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Form2 Minimieren/verschwinden lassen
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
|
|
Zitat
|