Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Was wird bei einem unsichtbaren Fenster nach OnCreate ausgeführt
11. Aug 2010, 13: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)
|
|
Zitat
|