Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Was wird bei einem unsichtbaren Fenster nach OnCreate ausgeführt

  Alt 11. Aug 2010, 12:16
ich kann das Problem nicht nachvollziehen
folgendes funktioniert bei mir Problemlos
Delphi-Quellcode:
program Project3;

uses
  Forms,
  Unit5 in 'Unit5.pas{Form5},
  Unit6 in 'Unit6.pas{Form6};

{$R *.res}

begin
  Application.Initialize;
  Application.ShowMainForm:= false;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.
Delphi-Quellcode:
unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Button1: TButton;
    TrayIcon1: TTrayIcon;
    PopupMenu1: TPopupMenu;
    jlj1: TMenuItem;
    procedure jlj1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation
uses unit6;
{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
 hide;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
   With TForm6.Create(self) do Show;
end;

procedure TForm5.jlj1Click(Sender: TObject);
begin
     Show;
end;

end.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat