Delphi Forum

1—B
2—C
3—A
4—
5—E
6—B
7—A
8—D
9—C
10—A
11—
12—B
13—A
14—
15—C
16—A
17—C
18—A
19—A
20—D
21—D
22—D
23—C
24—B
25—B

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',', #8, #9]) then //belirtilen değerlerden başka değer girilmesin
Key := #0;
if (AnsiPos(',',TEdit(sender).Text)<>0) and (key=',') then //birden fazla virgül girilmesin
key:=#0;

end;

Merhaba ,

DevExpress komponentlerini merak ettim.Resmi sitesinden DevExpress'in 226 MB'lik DXperience-9.1.4.exe demo dosyasını indirdim , kurdum , ama nasıl kullanacağımı bilmiyorum.Delphi bileşen paletindede görünmüyor.Delphi 7 kullanıyorum.Acaba bu sürüm delphi 7 'ye uygun değil mi?Yoksa Delphi 7 ...

Uzun süreli kullanımlarda parlak ve açık renkler kullanıcının gözünü yorar.Renk düzenini gözden geçirmende fayda var.
Tasarım biraz karışık olmuş.Butonlar , bilgi giriş kutuları , gridler formlarda farklı yerlerde.
Bilgisayarı kapat , oyun , saydamlık , hesap makinesi vs senin programın içerisinde ...

Merhaba ,
Boolean tipi bir değişkenle hallolur.Bu değişkeni MDIChild formu açmak için kullandığın butonda veya MDIChild formun OnShow olayında True yap.Formun OnClose olayında False yap.Kısayolları yazdığın kodlarda değişkenin True olduğunda devreye girmesini sağla.

if degisken = True then ...

Timer1 in enabled ini formun onshow unda false yapın ve edit1 ede sayı girildiğinden emin olun. Hata vermeden çalışır.

var
Form1: TForm1;
i : Integer ;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i := i + 1 ;
if i = StrtoInt(Edit1.Text) then
begin
Edit2.Clear ;
Timer1.Enabled := False ;
end ;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin ...

Hayırlı olsun.Arayüzü güzel olmuş.

formlarında position özelliklerini poDesktopCenter olarak ayarlarsan formlar tam ortalı olarak açılır.

Arkadaşlar ben bu sorunu halen daha çözemedim.EMS'nin 2008 versiyonununda bir sorun yok ama oda demo.2005 versiyonunu çalıştırmak istiyorum.Evimdeki ve işyerimdeki bilgisayarların ikisindede xp profesyonel yüklü.Acaba service pack sürümü ile ilgili olabilir mi?Bu sorunu nasıl çözücem?

aslangeri yazdı:s.a.
bu kodu nerde yazıyorsun.

Sorunuz kimeydi acaba?

A.S.Kardeşim. TabSheet'lerin pageIndex'lerine dikkat et ama.
Kolay gelsin.

Ben benzer birşey yapmıştım.Harddisk seri numarasındaki her harf ve her rakamın ascii kod karşılığını bulup bunları topluyordum.Sonra bu sonucu sabit bir sayı belirleyip bu sabit sayı ile çarpıyordum.Biraz daha sağlam olsun diye bu çıkan sonuç içinde birkaç basit matematik işlemi daha ...

Bu bandın height'ini sayfaya sığacak şekilde artırırsan sanırım istediğini yapmış olursun.

Merhaba,
Eğer edite girilen harflerin tümünün büyük olmasını istiyosan bu kod işine yarar.capslock'ın açık veya kapalı olmasının önemi olmaz.

Burada TMaskEdit ifadelerini TEdit olarak değiştirmen gerekir.

procedure TForm1.BuyukHarfeCevir(Sender: TObject) ;
Var
i:integer ;
TusDurumu : Boolean ...