Application Init bölümünden Form1in OnCreate değiştirmek.

[Jire]

Kod: Tümünü seç

uses
  Forms,
  Main in 'Main.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.OnCreate := Form1.FormCreate;
  Application.Run;
end.

Kod Form1.FormCreate belirli.

Kod: Tümünü seç

unit Main;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

...

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//Application Start
Self.Position := poDesktopCenter;
Self.BorderStyle := bsNone;
...
end;

Anlayacağınız form oluşturduktan sonra form createyi Form1Den değilde Application bölümünden halletmek istiyorum hata yok ama çalışmıyor.

Bu bölümde kullanabileceğim pause fln varmı pause yapıcam eklicem sonra tekrar devam ettiricem?

Yardım ederseniz sevinirim.Teşekkürler.

[aslangeri]

s.a.
açıkçası ne yapmak istediğini anlamadım.
form1 create edildikten sonra form1 in oncreate olayına başka bir metod mu atamak istiyorsun yoksa başka bişeylermi
hangi işlemin hangi sırada olmasını istiyorsun.
gönderdiğin kodlar hatavermiyor vede çok güzel de çalışıyor.
ne yapmak istediğini ve ne yaptığını işlemlerin oluş sırasını bi gözden geçir.
break point koyup kodları satır satır çalıştırarak nerde ne yaptığını görebilirsin.
kolay gelsin.

[sabanakman]

Self.??? biçiminde kullanımın anlamı, metodun yazıldığı nesnenin kendisini temsil eder. Eğer metot dışından bir bileşene erişmek isteniyorsa o zaman o bileşene ismi ile erişmek gerekiyor. Self.??? şeklinde değil Form1.??? şeklinde kullanabilmen gerekiyor. Tabi bu kullanımdan önce bileşenin oluşturulmuş olmasına dikkat .

[Jire]

Form1de Selfi kullanmamın nedeni Selfi gösterirken yanında
Self : TForm1 yazması yani Hepsine Teker teker Form1 yazmaktansa Self yaparak oluşturuyorum bileşenleri yada özellikleri.

Buradaki amaç OnCreate'e otomatik atama olmadan Application girişinden Form1in OnCreate özelliğinin Form1 içinde belirlenmiş procedure atanmasını istiyorum.Olay bu.

Bu verdiğim kodlar hata vermemesine rağmen çalışmıyor.
Normalde benim proceduremde Formun borderstyle ını bsNone yapıyor.Ama dediğim gibi hata vermemesine rağmen Form bsSizeAble (default) olarak çıkıyor.Bu da işlemin çalışmadığının göstergesi.

Daha fazla geniş anlatabileceğimi zannetmiyorum.Yardım ederseniz sevinirim.

İyi günler.

[aslangeri]

s.a.
o zaman formu create etmeden önce olayın atamasını yap.
çünkü formu create ettitken sonra atamayı yapmanın bir anlamı yok.
form create edildikten sonra create olurken şunları yap diyorsun.
şöyle düşün arkadaşın yanına geliyor. geldikten sonra gelirken şunuda getir diyorsun. gelmeden önce söylesene
kolay gelsin.