butonla formun arka planını değiştirmek

[sheak]

arkadaşlar merhabalar. bir buton ile formun veya panelin arka planını nasıl değiştirebiliriz. renk ve resim ayrı ayrı butonlarda olacak ama şimdiden teşekkürler.

[conari]

Arama yapsan daha hızlı cevaplar alabilirsin

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Color:=  clBackground;
end;

[sheak]

arama yaptım arka plan die ama bazı durumlar vardır. insan bilmiyorsa vede yanında dahi olsa o an anlamayabilir. bu arada ben resim eklemek icin sormuştum bunun icin ne yazabiliriz?

[sheak]

hemde bunda renk paleti de gelmiyor. :(

[conari]

arkadaşlar merhabalar. bir buton ile formun veya panelin arka planını nasıl değiştirebiliriz. renk ve resim ayrı ayrı butonlarda olacak ama şimdiden teşekkürler.

renk paletini getirip ordan mı seçtirmek istiyorsunuz.
??
veya arka plan resmini de bir yerden mi seçtirmek istiyorsunuz??

[sheak]

her ikiside desem kızmassın demi yani hangisini istiyorsa onu yapacak beni ilgilendirmiyor

[sheak]

birde bu farklı bir konu ama bunuda buraya yazayım konu kirliliği olmasın. şimdi program ekranın sağına alınmışsa butona tıklaanınca sol tarafa eğer solda ise butona tıklanınca sağ tarafa uzayacak. ve her ikisinde de aynı acılan program aynı olacak. yada daha basite indirgeyelim dersek. sağda yada solda farketmeyecek ve program sağda iken yada sol da iken ortada bi koordinata gelecek ve sağa doğru uzayacak bunu nasıl yapabilirim.

[conari]

birinci sorun için bu seçilen değerler kaydedilecekmi yoksa her seferinde
her açılışta seçtirecekmisin.

Kaydetmeden yapıcam dersen.
önce bir colorbox koy

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.Color:=ColorBox1.Selected;
end;

resim için bir tane opendialog koy
bir tane image koy

Kod: Tümünü seç

procedure TForm1.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName)
end;

[sheak]

arkadaşım saolasın cok yardımcı oluyorsun da yine ben anlatamadım sanırım.

opendialogla resim alıyoruz ya onu butona tıklayınca yapacak :S valla kufur etme ogrenmeye calısıoz :S

panelin arka plan kodunu bulamadım

[conari]

buton onclicke
opendialog.execute
ediceksin
dosya seçme açılır ama opendialog kullanma openbitmap dialog vardı sanırım onu kullan.

opendialog un
canclose a da yazdığım kodu
procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName)
end;