Delphi Forum

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. TListView Sürükle Bırak ile Birden Fazla Nesneyi Yeniden Düzenlemek http://img8.imageshack.us/img8/6456/listviewarrange.gif Çoğu MP3 (ya da herhangi bir multimedia) oynatıcı aşşağıdaki kodu kullanarak çalma listesini düzenlemeye olanak verir. TlistView ...

Excel den yapıştırma (pasting from Excel ) Devexpress forumunda buldum Türkçeye çevirdim. Denemedim. Formun KeyPreview özelliğini true olarak ayarlamalısın, yapıştırma olayını test etmelisin KeyDown (Aşşağıda görebilirsin), ondan sonra hafızada metin varmı kontrol etmelisin. 1) Grid içine yapıştır (...

Makale: Phil Gilmore. Çeviri: Ramazan Gülbahar. Delphide yeni bir konu olan "Generic" kulllanımı hakkında Türkçe döküman yokluğunu gidermek amacıyla bir makaleyi Türkçeye çevirdim. Generic nedir, nasıl kullanılır, ne için kullanılır... Dosya PDF formatındadır ekten indirebilirsiniz. http:/...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. http://img196.imageshack.us/img196/9370/listboxincrementalsearc.gif Aranacak metni test etmek için StrPCopy arama işlemi yapar. Perform metodu ListBox1’e LB_SELECTSTRING mesajını direkt gönderir. LB_SELECTSTRING iki değişken ister: İlk karakterden öncek...

2.Yol Üçüncü parti komponent kullanman CleverInternetSuite bu iş için en ideal komponent Web den güncellemeyi anlatan açık kaynak koduda mevcut. Aşşağıdaki adreste Web den güncelleme anlatılmaktadır. bana en mantıklı yol gibi geldi. Not: Komponenti nerden bulcam dersen: ben rapidden buldum ;) full. ...

Not: Denemedim Türkçeye çevirip gönderiyorum... Program Güncellemek TWebBrowser Komponentine ihtiyacın olacak function GetVersion : string; const NOVIDATA = ''; var dwInfoSize, // VERSIONINFO programın büyüklüğü dwVerSize, // Data büyüklüğü dwWnd: DWORD; //Çağrılan büyüklük için bir Handle . FI: PVS...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. http://img201.imageshack.us/img201/3959/tlistboxcolumns.gif Listbox sadece bir kolon kullanarak bilgileri gösterir, eğer aynı satırda birden fazla bilgi göstermek istersek ne yapacağız: TabWidth özelliğinden: Kolonların genişliğini ayarlayabiliriz bu ör...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. http://img836.imageshack.us/img836/3470/listboxitemsdragdrop.gif 1. Forma bir adet TListBox ekleyin. 2. Items özelliğinden metinler girin 3. ListBox1’in DragMode’unu dmAutomatic olarak ayarlayın. 4. LisBox için Handle MouseDown, DragOver ve DragDrop ola...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. http://img186.imageshack.us/img186/9016/radiolistbox.gif TListboxın MultiSelect özelliğini False yapın. Not: Forma bir TListBox ekleyin ve items özelliğine metinler girin: procedure TForm1.FormCreate(Sender: TObject); begin ListBox1.Style := lbOwnerDraw...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. TListBox “ lbOwnerDrawFixed” olarak ayarlamak zorundasın. procedure TForm1.ListBox1DrawItem (Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState) ; var myColor: TColor; myBrush: TBrush; begin myBrush := TBrush.Create; with (Control...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. TListBox Fareyle Nesneler Üzerinde Gezerken Sanki Fare Nesneye Tıklamış Gibi Nesneyi Seçili Gösterir ve Arka Planı Renklendirir. Aşşağıdaki Kodu OnMouseMove olayına yazın. procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Int...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. procedure SetHorizontalScrollBar(lb : TListBox) ; var j, MaxWidth: integer; begin MaxWidth := 0; for j := 0 to lb.Items.Count - 1 do if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then MaxWidth := lb.Canvas.TextWidth(lb.Items[j]) ; SendMessage(lb.Handle...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. Bazen listboxın genişliğinden daha uzun metinleri göstermek isteriz, ancak bu durumda metnin birkısmı görünmez. Çözüm ise sığmayan metni hint olarak göstermektir. ShowHints özelliğini True yapın. OnMouseMove olayna aşşağıdaki kodu yazın: procedure TForm...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar. http://img243.imageshack.us/img243/8907/listboxitemsdelete.gif TListBox kontrolü birden fazla metin listesini gösterir, TListBox’ın MultiSelect özelliğini true yaparsak kullanıcı birden fazla nesneyi seçebilir. Seçilen Nesneleri TListBox’tan Nasıl Siler...

Makale: Zarko Gajic. Çeviri: Ramazan Gülbahar Aşşağıdaki uygulamalar Shift, Ctrl ya da Alt tuşu basılımı Algılamaya yarar. function CtrlDown : Boolean; var State : TKeyboardState; begin GetKeyboardState(State) ; Result := ((State[vk_Control] And 128) <> 0) ; end; function ShiftDown : Boolean; var St...