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
Tüm butonları değiştirme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Tüm butonları değiştirme
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 !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Re: Tüm butonları değiştirme
tek tek yapmak biraz sıkıntılı, 300 den fazla form var. GExpert ile form form yaptığımda hata vermiyor.
Re: Tüm butonları değiştirme
iyi bir notped kullanıcısı olarak , 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 .
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 .
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;
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;