Tüm butonları değiştirme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
m_ekici
Kıdemli Üye
Mesajlar: 563
Kayıt: 11 Haz 2003 06:49
Konum: Adana
İletişim:

Tüm butonları değiştirme

Mesaj gönderen m_ekici »

s.a.

Projemde daha önce bir çok speedbutton kullanmıştım. GExpres ile tüm speed buttonları cxButton yapmak istediğimde

Error creating form: System Error. Code: 1158.
Geçerli işlem, sistemce izin verilen tüm işleçlerini Pencere Yöneticisi nesneleri için kullandı.

hatasını alıyorum. Bir kaç mesajdan sonra da delphi kapanıyor. bu işlemi pencereleri açmadan veya (başka bir yolla) yapma şansım var mı?

iyi çalışmalar
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: Tüm butonları değiştirme

Mesaj gönderen freeman35 »

tool olmadanda yapabilirsin, notepad ile bile açıp, tspeetbutton ları, tcxbutton yapman yeterli, isimleri değil, class isimlerini değiştir. bunu mutlaka hem pas hemde dfm içinde yap, delphi yi sonra aç, delphi eksik ve olmayan property leri uyaracak, ve düzeltecektir.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Kullanıcı avatarı
m_ekici
Kıdemli Üye
Mesajlar: 563
Kayıt: 11 Haz 2003 06:49
Konum: Adana
İletişim:

Re: Tüm butonları değiştirme

Mesaj gönderen m_ekici »

tek tek yapmak biraz sıkıntılı, 300 den fazla form var. GExpert ile form form yaptığımda hata vermiyor.
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: Tüm butonları değiştirme

Mesaj gönderen Commandx »

iyi bir notped kullanıcısı olarak :D , Hocam Editplus diye bir program var
Bunu kurun Bütün Formları Pas dosyalarını editplus ile açın, (Siyah ile gösterdiğim alan) içeriğinde speed button olan dosyaları resimdeki yere yazdığınızda
speed button olan stringler bulunacak, Sonra kırmızı ile işaretlediğim alanda ise, Değişmek istediğin Stringleri, cxButton ile Replace edeceğin dialog gelecek.
Biraz uğraştırıcı ama bildiğim en kısa yol bu . :bravo:
Resim
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
Cevapla