Delphi Kod Arşivi

YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Edit Bileşenine Girilen Kelimelerin İlk Haflerini Büyük Yapmak

Bunun için Function tanımlıyoruz.

Kod: 
Function BuyukHarf(Harf: Char): Char;
begin
  case Harf of
    'ı': Result:='I'; 'ğ': Result:='Ğ'; 'ü': Result:='Ü'; 'ş': Result:='Ş';
    'i': Result:='İ'; 'ö': Result:='Ö'; 'ç': Result:='Ç';
  else
    Result:=UpCase(Harf);
  end;
end;

Daha sonra girilen sözcüklerin ilk harfini büyük yapmak için Edit bileşeninin OnKeyPress yordamın alttaki kodu girin.
Kod: 
  with Sender as TDBEdit do
   if (SelStart = 0) or (Text[SelStart] = ' ') or (Text[SelStart] = '.') then
  begin
    Key := BuyukHarf(Key);
  end;

Artık Edit bileşenine yazdığını her sözcüğün ilk harfi büyük olacaktır. Diğer editlere uygulamak için OnKeyPress yordamına referans verin.
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Kayıt Silerken Uyarı Penceresi Göstermek

Herhangi bir tablodan kayıt silerken özelleştirdiğiniz bir pencerede uyarı vermesini istiyorsanız silme butonunun OnClick yordamına şu kodu ekleyebilirsiniz (silme ve silme olayından vazgeçme).

Kod: 
if MessageDlg(QuotedStr(Query1.FieldByName('Birlestir').AsString)
    + ' adlı personele ait kayıtları silinsin mi?',mtWarning,[mbYes,mbNo],0) = mrYes then
    Query1.Delete;

Query1 : Tablo adı
Birlestir : Alan adı
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Label - Link Verme.

Forma bir adet label ekleyip içerisine bir link ekleyelim. Örneğin; www.cerezforum.com

Lebel bileşenine tıklandığında ilgili sitenin açılması için;

Uses bölümüne ShellApi ekleyin.

Label'in OnClick yordamına alttaki kodu ekleyin.

Kod: 
var
Web : string;
begin
  Web:='http://'+Label1.Caption;
   ShellExecute(Handle,'Open',pchar(Web),Nil,nil,SW_SHOWNORMAL);

Bu durumda labele tıkladığınızda ilgili site açılacaktır.

Label bileşeninin görünümü üzerinde değişikliği kendinize göre yapabilirsiniz. Örneğin crHandPoint seçmek labelin üzerine gelindiğinde imleçin el şeklinde olmasını sağlar.
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Tablonun Edit veya Insert modunda olup olmadığını kontrol etmek:

Kod: 
if Query1.State in [dsInsert, dsEdit]
  then //[I]Yapılacak işlem[/I];
 
H

hasan çelik

Üyecik
merhaba arkadaşar kolay gelsin ben delphi ile bi program yapiyorum veritaban bağlatılarını yaptım zaman hatta veriyor bana bu konuda yardım edecek yok
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Delphi paradox bağlantı örnekleri sayısız şekilde nette var. Ayrıca delphinin örnek klasöründe de birçok örnek vardı hatırladığım kadarı ile.
 
Benzer Konular Başlık Forum Cevap Tarih
YoRuMSuZ Delphi Toolbar Reset Delphi İle Başlangıç 0
YoRuMSuZ Delphi Basit Case Kullanımı - 4 İşlem Delphi İle Başlangıç 0
YoRuMSuZ Delphi RAD Studio 10.4 kurulum Delphi İle Başlangıç 0
H Delphi DNS DEĞİŞTİRME KODLARI Delphi İle Başlangıç 1
YoRuMSuZ Buton Stilini Değiştirmek ve Görev Atamak - Delphi XE7 Delphi İle Başlangıç 0

Top