Delphi Forum

Makale: Zarko Gajic
Çeviri: Ramazan Gülbahar

TRichEdit Yazdırılırken Kenarlıkların Ayarlanması
TRichEdit kontrolü Windowsun rich text kontrolünü destekler. Rich text edit kontrolleri kullanıcının (düzenle, biçim, yazdır, ve kaydet) yazı ve paragraf biçimlerini değiştirmesine olanak verir.

Rich ...

Wave dosyasi nasil calinir nasil Exe icine gomulur ?

Bir cok program kucuk wave dosyalarini dagitmaktansa dogrudan programin icinden calmaktadir. Bu islemi Delphi'den yapmak icin:

1. Project|Resources komutu verin.
2. Gelen pencerede sag tiklayip New|User Data komutu verin.
3. Resource Type olarak ...

Aynı sorunu bende yaşadım zip li dosyayı ftp den indirince hata veriyodu açmıyodu (ftbinary iken). araştırdım sorun indy versiyonuyla alakalı indy 10.0.0 bug var, delphi XE Indy 10.0.7 ile aynı dosyayı zipleyip ftp ye upload ediyorum ve tekrar indiriyorum sorun ortadan kalktı. kısaca Indy ...

Normalde çalışma zamanında Button1.Font.color:=DEĞİŞTİRİLEMEZ, , ama sınıf tanımlaması yaparak buttonun arka plan rengini ve font rengini çalışma zamanında değiştirebilirsin.

uses buttons; ekle



Uses Buttons; //Ekle
//Tür Tanımlaması Aşşağıdaki gibi Olacak

{Yeni Button Sınıfının Tanımlaması ...

Cevap veren tüm arkadaşlara teşekür ediyorum

Projede DBRichEdit yerine TWebBrowser kullanmak istiyorum. Veri tabanından konu başlıklarını treeview e yükledim.
treeview nesnesine tıklanınca içeriğin webbrowserda görünmesini istiyorum nasıl yapabilirim örnek verebilecek varmı?

http://img844.imageshack.us/img844/3259/cgrform.gif

TDBGrid İçindeki Satırları Renklendirmek

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Begin

if Table1.FieldByName('Salary').AsCurrency>36000 then ...

Bu Kod MDIChildForm'u Ana Formun Client Alanına Yerleştirir. (Tam Ekran Yapmaz)



Form2.BoundsRect := GetMDIClientAreaBoundsRect(Form1);

function GetMDIClientAreaBoundsRect(MDIForm: TForm): TRect;
begin
if MDIForm.FormStyle = fsMDIForm then begin
if not Windows.GetClientRect(MDIForm ...

Makale: Zarko Gajic
Çeviri: Ramazan Gülbahar.

TRichEdit’e Standart Popup Menü Eklemek


http://img837.imageshack.us/img837/8623/tricheditstandardcontex.gif

Kullanıcı sağ tıklayıp kontrol üzerinde değişiklik yapmak istediği zaman(herhangi bir komponent olabilir edit, memo, dbedit…) varsayılan ...

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

TListView Nesneleri Biçim, Renk, Grafik
http://img253.imageshack.us/img253/8986/listviewitemdraw.png

TListView Delphi kontrolü, Windows Explorer’a benzer şekilde dosyaları ve klasörleri gösterir. Nesneler ve alt nesneler sütun başlıklarıyla beraber ...

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

TListView Sub Items Hint Göstermek
http://img405.imageshack.us/img405/8563/listviewitemhints.gif

ListView Item Hintleri Nedir?
TListView’de Hint göstermek için ShowHint özelliğini kullanırız, fare ListView üzerinde gezinirken hint gösterir.
En ...

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

ListView’in kendi CheckBoxeları çirkin kendi oluşturduğumuz Grafikleri Kullanalım.

http://img824.imageshack.us/img824/2228/lvcheckboxcustom.png

TListView’in ViewStyle özellğini vsReport ve CheckBoxes özelliğini true yaptığımız zaman list view ...

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.


http://img823.imageshack.us/img823/5355/tlistviewitemcheck.gif

ViewStyle := Report;
CheckBoxes := True;

ViewStyle özelliği vsReport ve CheckBoxes true ayarlı iken, ListView içinde bir check box ListView nesnesinin yanında oluşur.
ListView ...

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.



http://img828.imageshack.us/img828/9052/listviewitemclick.gif

ListView tıklandığı zaman OnClick olayı tıklanan nesneyi algılıyabilir, bizde X ve Y deiğişkenlerini kullanarak ListView’den tıklı nesneyi algılayarak kullanabiliriz.
TListVew'in ...

Komponentin Adını Algılamak

Bu uygulama farenin tıkladığı komponentin adını döndürür FindControlAtPos uygulamasını global olarak tanımlarsanız diğer komponentler içinde kullanabilirsiniz.
function FindControlAtPos: TWinControl;
var
Pt: TPoint;
begin
GetCursorPos(Pt);
Result := FindControl ...