Uygula

[abdulkadir]

Ramazanınızın hayırlı gecmesi dilegi ile

Arkadaslar
form1 uygulamamda ki ayarları registrye kaydediyorum
(fomrm.color font.color font.name gibi)
form2 de bu ayarları degiştiriyorum
hersey güzel ancak ayarlar form1 kapatıp tekrar acınca etkili oluyor

bu ayarlaıı anında nasıl uygularım

form2 de uygula dügmesine basılınca form1 de ayarlar uygulansın

bu örnek ekran koruyucu için uygulamalarımız için ne kullanılmalı

// anında değişiklikleri uygulamak için
SystemParametersInfo
(SPI_SETDESKWALLPAPER,0, nil,SPIF_SENDWININICHANGE);
SystemParametersInfo
(SPI_SETSCREENSAVEACTIVE,0, nil,SPIF_SENDWININICHANGE);


Hepinize Bol kazançlı Bereketli işler dilerim

Abdulkadir ...

[mussimsek]

Merhaba,

şöyle bir yöntem izleyebilirsin.

form2'yi oluştur
form2'yi aç
{değişiklikleri yapıp kapattın}
form1'in ayarlarını registry'den oku ve işle

Kolay gelsin.

[abdulkadir]

tesekkür ederim hocam

cözümü hep farklı işlemlerle düsünüyordum
dediginiz gibi yapmak hiç aklıma gelmedi

bu sekilde oldu ama söyle bir yöntem uyguladım

form1 iç.imde reg oku diye bir procedure yaptım
form2 içine form1 aktardım
uygula butonunun click olayına reg oku procedure yi cagırdım
olay hallaldu fikriniz sayesinde

yanlız bir sey sormak istiyorum mümkünse basit bir örnek olsa cok sevinirim aslında cok denedim ama hep declare hatası alıyorum

mesela 15 tane procedure yi bir Unitte toplayıp diger sayfalara cagırmak istiyorum

genellikle hata Unitte buttonbirclick olayı var ama sayfada button bir yok
yukarıda tanımlıyorum
//--------------------
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
//---------------------------
bu sefer baska hata bildiriyor ok degince tanımlanan buttonu otomatik siliyor hayır degincede baska hata veriyor

sizden istedigim mümkünse unitin yapısını anlayabilcegim bir örnek içinde buttonlar memolar falan vs olan bir örnek verebilirmisiniz mesela ayarlar adında Unit olsun Diger formlar içinden bu ayarlar Unitindeki procedureleri kullanayaım

Procedure leri aynı sayfada yapıp kullanıyorum ama bunları ayrı ve toplu olarak bir unitte toplayıp kullanamadım

Forumda varsa (ben bulamadım) linkin verseniz sevinirim

Herkese tesekkür eder basarılar dilerim
sevgiler

Abdulkadir