Delphi Forum

Formuma 4 panel(üst üste ) ve 1 RadioGroup box koydum groupbox ın elemanları Panel1,Panel2,PAnel3 ve PAnel4
yani radiobox da hangi paneli seçersem onu öne getirmek istiyorum
Kod:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
TWincontrol(form1.FindComponent('Panel'+inttostr ...

en güzeli Eğer bir değişiklik yapıldıktan sonra başka bir dosyaya geçiliyorsa o sıra kullanıcıya değişikliklerin kaydedilip kaydedilmiyceğini sorup diğer dosyanın okutulması .Yoksa tüm özellikleri ile bir liste halinde rich edit içeriklerini hafızada tutmalı ve kaydettirmelisinki gereksiz olur kanımca

bazı denetimler kullanıcıdan giriş(input,girdi,klavyeden veya fareden) alır, mesela edit kontrol veya memo kontrol yada button gibi. Hangi kontrolün giriş için aktif olcağını, kullanıcı yada programcı belirler. Kullanıcı belirlerse sorun yok ama programcı gözükmeyen bir kontrolü giriş(odak,hedef ...

Bi sitede şöyle 2 link buldum
GetTopWindow: http://msdn.microsoft.com/en-us/library ... S.85).aspx
GetNextWindow: http://msdn.microsoft.com/en-us/library ... S.85).aspx

Bunun okadar kolay birşey olduğunu sanmıyorum, ayrıca Nesneleri nasıl tanımladın ve oluşturuyorsun merak ettim.Nesnelerinde çünkü değişkenleri var.
Bence en basiti
Type
Degisken=Record
ad:string;//Değişkenin adı
Konum:integer;//Değişkenin adresi
Boyut:integer;//Değişkenin boyutu
end;
Şeklinde bir ...

Dosya yolunu seçtirir sin yolu bir edit e
kitap adı
yazarını farklı editlere girdirirsin.
sonra bunlar kaydet diyince treeview e node ekletirsin
normal keydetme geri yükleme olaylarını eskisi gibi yaptırırsın

yok canım niye yanlış anlıyım . çözümü kendin bulman senin için daha güzel başkalarının yaptığını örnek alarak kendini geliştiremezsin veya zevki kalmaz işin. ama fikir olması açısından kodu incelemen senin için faydalı olur.

Laz61 yazdı:Merhabalar
nightwolfcem tsk. ederim. Kodu calistirdim..

Yukardaki Kodu güncelledim Gerekli açıklamaları yanlarına yazdım

Benim denediğim font büyüklüğünde sorun cıkmamıştı .Aslında kod yanlışmış sorun Memo bileşeninin kendi fontu ile, yazı alanında kullanılan fontun farklı olmasından kaynaklanıyor . Aşağıdaki kodun sorun cıkaracağını sanmıyorum ;) Eğer font değişikliği varsa program içinde Formcreate daki yazı ...

procedure TForm1.Memo1Change(Sender: TObject);
var
dc: hdc;
tm: tagTEXTMETRICW;
rc: trect;
count: integer;
begin
dc := GetDC(Memo1.Handle);
GetTextMetrics(dc, tm);
rc := Memo1.BoundsRect;
count := Memo1.Lines.count;
if count = 0 then
count := 1;
rc.Bottom := rc.Top + round((tm.tmHeight ...

yeni bir form aç Bir tane treeview1
3 button(Name:Add,Save,Load olan) ekle
Codeları aşağıdaki gibi düzenle;

var
fileS:TFileStream;
index:integer;
begin
if TreeView1.Selected<>nil then
begin
fileS:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'.Treeview.sav',fmCreate);
files ...

unicorn bende ilk gördüğümde imzanı cevap içeriğinin içinde algıladım , diğer mesajlarınıda görünce imzan olduğunu anladım
Ve doğru bir imza

Component kaydetme olayını denedinmi
filestream.writecomponent(treeview1)
filestream.readcomponent(treeview1)
gibi

Ekte Windows APİ si(AlphaBlend;bu fonksiyon formda kullanılanla aynı değil tabiyki) kullanarak bu işi nasıl yapıcağın ile ilgili örnek hazırladım. Basit birşey geliştirmek sana kalmış

Elinizdeki program şöyle bir yöntem uyguluyordur; formun AlphaBlend değerini oldukça transparan hale getirecek kadar bir noktada tutup, arkada kalan kısmın görünür halde olması sağlanıyordur ve yine aynı formun üzerinde çizim yaptırıyordur. Sonra da formu kaldırıp arka kısımdan grab işlemini ...