![]() |
Re: Form1 bei OnCreate Ereignis beenden
grmpf :-(
|
Re: Form1 bei OnCreate Ereignis beenden
Hallo,
man könnte im OnCreate dem Formular mit PostMessage auch eine Botschaft schicken.
Delphi-Quellcode:
PostMessage(Handle,WM_CLOSE,0,0);
|
Re: Form1 bei OnCreate Ereignis beenden
Zitat:
|
Re: Form1 bei OnCreate Ereignis beenden
wie @jens schon sagt botschaft mit postmessage schicken
etwa so:
Delphi-Quellcode:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const WM_MyCloseinCreate = WM_USER + 999; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private-Deklarationen } procedure MyCloseinCreate(var Message: TMessage); message WM_MyCloseinCreate; public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MyCloseinCreate(var Message: TMessage); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin // mach was ... // jetzt soll im create close gemacht werden PostMessage(self.handle, WM_MyCloseinCreate, 0, 0); end; end. |
Re: Form1 bei OnCreate Ereignis beenden
Warum so umständlich?
Delphi-Quellcode:
Das reicht schon.
procedure TForm1.FormCreate(Sender: TObject);
begin PostMessage(Handle, WM_CLOSE, 0, 0); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz