Form run dediğimizde gri ekran açılması hk.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Form run dediğimizde gri ekran açılması hk.
Arkadaşlar selam from1 üzerinde programı çalıştırdığımızda gri bir ekran açılıyor , butonlar vs yok neden olabilir,
- Dosya ekleri
-
- hata.jpg (2.56 KiB) 2870 kere görüntülendi
Re: Form run dediğimizde gri ekran açılması hk.
Selamlar,
Source'unuzu görsek belki bir yorumda bulunabiliriz.
Kolay Gelsin
Source'unuzu görsek belki bir yorumda bulunabiliriz.
Kolay Gelsin
Kuri Yalnız Jedi
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Re: Form run dediğimizde gri ekran açılması hk.
Kod: Tümünü seç
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Edit1: TEdit;
Label10: TLabel;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Timer1: TTimer;
Label11: TLabel;
procedure Button7Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Label11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button7Click(Sender: TObject);
var
arama:boolean;
begin
DBEdit1.Enabled:=False;
DBEdit2.Enabled:=False;
DBEdit3.Enabled:=False;
DBEdit4.Enabled:=False;
DBEdit5.Enabled:=False;
DBEdit6.Enabled:=False;
DBEdit7.Enabled:=False;
DBEdit8.Enabled:=False;
DBEdit9.Enabled:=False;
arama:=Table1.Locate('FIRMA_ADI',Edit1.Text,[]);
if not arama then
Showmessage('Aradığınız Firma Bulunamadı');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DBEdit1.Enabled:=True;
DBEdit2.Enabled:=True;
DBEdit3.Enabled:=True;
DBEdit4.Enabled:=True;
DBEdit5.Enabled:=True;
DBEdit6.Enabled:=True;
DBEdit7.Enabled:=True;
DBEdit8.Enabled:=True;
DBEdit9.Enabled:=True;
Table1.Insert;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DBEdit1.Enabled:=False;
DBEdit2.Enabled:=False;
DBEdit3.Enabled:=False;
DBEdit4.Enabled:=False;
DBEdit5.Enabled:=False;
DBEdit6.Enabled:=False;
DBEdit7.Enabled:=False;
DBEdit8.Enabled:=False;
DBEdit9.Enabled:=False;
Table1.Post;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Table1.Delete;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
DBEdit1.Enabled:=True;
DBEdit2.Enabled:=True;
DBEdit3.Enabled:=True;
DBEdit4.Enabled:=True;
DBEdit5.Enabled:=True;
DBEdit6.Enabled:=True;
DBEdit7.Enabled:=True;
DBEdit8.Enabled:=True;
DBEdit9.Enabled:=True;
Table1.Edit;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
DBEdit1.Enabled:=False;
DBEdit2.Enabled:=False;
DBEdit3.Enabled:=False;
DBEdit4.Enabled:=False;
DBEdit5.Enabled:=False;
DBEdit6.Enabled:=False;
DBEdit7.Enabled:=False;
DBEdit8.Enabled:=False;
DBEdit9.Enabled:=False;
Table1.Cancel;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DBEdit1.Enabled:=False;
DBEdit2.Enabled:=False;
DBEdit3.Enabled:=False;
DBEdit4.Enabled:=False;
DBEdit5.Enabled:=False;
DBEdit6.Enabled:=False;
DBEdit7.Enabled:=False;
DBEdit8.Enabled:=False;
DBEdit9.Enabled:=False;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Table1.First;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Table1.Prior;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Table1.Next;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
Table1.Last;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
end;
procedure TForm1.Label11Click(Sender: TObject);
begin
Label11.Caption:=DateTimeToStr (Now);
end;
end.
Re: Form run dediğimizde gri ekran açılması hk.
şimdi yardımcı olabilir misin önemli bir konu benim için
Re: Form run dediğimizde gri ekran açılması hk.
Selamlar,
Bu source yeterli değil. Proje source'u da lazım. Çünkü run dediğinizde Main form hangisi, form1 mi form2 mi? Ayrıca nesnelerin propertyleri ne alemde. Visibleları mı kapalı? Şu projeni komple bir RAR yap gönder bakalım çok merak ettim nasıl nesneler görünmüyormuş.
Kolay Gelsin
Bu source yeterli değil. Proje source'u da lazım. Çünkü run dediğinizde Main form hangisi, form1 mi form2 mi? Ayrıca nesnelerin propertyleri ne alemde. Visibleları mı kapalı? Şu projeni komple bir RAR yap gönder bakalım çok merak ettim nasıl nesneler görünmüyormuş.
Kolay Gelsin
Kuri Yalnız Jedi
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Re: Form run dediğimizde gri ekran açılması hk.
umarım çözeriz
- Dosya ekleri
-
- delphi.rar
- (84.91 KiB) 180 kere indirildi
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: Form run dediğimizde gri ekran açılması hk.
Gönderdiğin dosyada sadece form1 ve form2 var proje dosyası ve derlediğin exe yok. Bu şekilde bir çözüm üretmek zor.
-
- Üye
- Mesajlar: 254
- Kayıt: 16 Şub 2004 06:12
- Konum: istanbul
Re: Form run dediğimizde gri ekran açılması hk.
Merhaba,
Hata olarak, boş olan formu create esnasında öncelikli form olarak atamış olabilir misin ?
Hata olarak, boş olan formu create esnasında öncelikli form olarak atamış olabilir misin ?
Re: Form run dediğimizde gri ekran açılması hk.
Selamlar,
Ben download edemedim ama anladığım kadarı ile Delphi'ye yeni başlıyorsunuz. Siz projeyi oluşturdunuz mu? Yani File -> New VCL Form Application şeklinde mi oluşturdunuz? Sanırım siz doğrudan Fine New VCL Form açtınız gibime geliyor. Dediğim gibi download edemedim Chrome çakıldı.
Şunu yapın. Delphi'yi açın. Sonra ne olur ne olmaz File->Close All yapın. Sonra File->New VCL Application deyin. Ardından açılan forma bir buton atın yeni bir form create edin ve peşinden Form1'deki buton tıklandığında form2'yi açacak şekilde düzenleyin. Sonra RUN edin.
Muhtemelen siz Proje oluşturmadınız.
Kolay Gelsin
Ben download edemedim ama anladığım kadarı ile Delphi'ye yeni başlıyorsunuz. Siz projeyi oluşturdunuz mu? Yani File -> New VCL Form Application şeklinde mi oluşturdunuz? Sanırım siz doğrudan Fine New VCL Form açtınız gibime geliyor. Dediğim gibi download edemedim Chrome çakıldı.
Şunu yapın. Delphi'yi açın. Sonra ne olur ne olmaz File->Close All yapın. Sonra File->New VCL Application deyin. Ardından açılan forma bir buton atın yeni bir form create edin ve peşinden Form1'deki buton tıklandığında form2'yi açacak şekilde düzenleyin. Sonra RUN edin.
Muhtemelen siz Proje oluşturmadınız.
Kolay Gelsin
Kuri Yalnız Jedi
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Re: Form run dediğimizde gri ekran açılması hk.
Önerin için teşekkürler şimdi de cpu hatası alıyorum ekte görüldüğü gibi bunu nasıl çözebilirim
İşletim sistemim win 10 64 bit
İşletim sistemim win 10 64 bit
- Dosya ekleri
-
- hataa.jpg (7.04 KiB) 2748 kere görüntülendi
Re: Form run dediğimizde gri ekran açılması hk.
Selamlar,
Siz Delphi'ye yeni başladıysanız ya bir kitaptan ya da aşağıda verdiğim linkteki dersleri izleseniz iyi olur.
https://www.youtube.com/watch?v=uF3WQ0J ... C5E6EF1691
Kolay Gelsin
Siz Delphi'ye yeni başladıysanız ya bir kitaptan ya da aşağıda verdiğim linkteki dersleri izleseniz iyi olur.
https://www.youtube.com/watch?v=uF3WQ0J ... C5E6EF1691
Kolay Gelsin
Kuri Yalnız Jedi
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Harbi Özgürlük İçin Pisi http://www.pisilinux.org/
Re: Form run dediğimizde gri ekran açılması hk.
Yeni başlamadım sadece cpu hatasını nasıl çözebilirim yurt dışı sitelerindende baktım yetkilendirme yaptım aynı hatayı alıyorum, projeyi göndermiştim ama acamadınız sanırım
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: Form run dediğimizde gri ekran açılması hk.
Eklediğin resmi görüntüleyemedim. Cpu hatası demişsin de tam olarak hata mesajını yazar mısın.
Re: Form run dediğimizde gri ekran açılması hk.
ekte resimde gönderdim umarım çözebiliriz
- Dosya ekleri
-
- hataaa.jpg (5.19 KiB) 2716 kere görüntülendi
Re: Form run dediğimizde gri ekran açılması hk.
Güzel kardeşim eklediğin resme ekledikten sonra hiç baktın mı ? Yoksa ben mi başaramıyorum görmeyi resmi !