Kod: Tümünü seç
procedure TdcKlavye.Loaded;
begin
inherited;
if not (csDesigning in ComponentState) then
begin
TusYerlestir;
HarfAta;
end;
end;
5 uygun sonuç bulundu
- 09 Eki 2011 09:20
- Forum: Delphi VCL
- Başlık: Yeni bileşen Width ve height sorunu
- Cevaplar: 7
- Görüntüleme: 2298
Re: Yeni bileşen Width ve height sorunu
Sorunu şu şekilde çözdüm sonunda. Bir yerde gördüm. Loaded kelimesi denemek için iyi bir fikir olarak gözüme göründü.
- 09 Eki 2011 07:19
- Forum: Delphi VCL
- Başlık: Yeni bileşen Width ve height sorunu
- Cevaplar: 7
- Görüntüleme: 2298
Re: Yeni bileşen Width ve height sorunu
setbounds'u da denemiştim. Onu ekleyince Access Violation Error veriyor. Resize'ı silip sadece Setbounds'ı bırakıp da denedim. Yine aynı. Setbounds içinden TusYerlertiri çağıramıyorum kısacası.
- 09 Eki 2011 07:13
- Forum: Delphi VCL
- Başlık: Yeni bileşen Width ve height sorunu
- Cevaplar: 7
- Görüntüleme: 2298
Re: Yeni bileşen Width ve height sorunu
Onu yaptım zaten. Mesela şu anda öyle. Create'den sildim tusyerlertiri. Sadece resize'da. Tasarım anında çalışıyor sorunsuz. Ama bu sefer da butonları çizmiyor. Yine çalıştırdıktan sonra boyutlandırınca ancak tekrar çiziyor. Yani klavyeyi kullandığım programdan kodla width veya height'i yeniden ...
- 09 Eki 2011 06:49
- Forum: Delphi VCL
- Başlık: Yeni bileşen Width ve height sorunu
- Cevaplar: 7
- Görüntüleme: 2298
Re: Yeni bileşen Width ve height sorunu
constructor Create içinde bu değeri muhakkak atamak zorundasınız. Yukarıdaki tanımda geçen default anahtar sözcüğü, o bileşen form üzerindeyken o değere sahip olarak tasarım kayıt edilirse, bu değer .dfm dosyasına yazılmadan kayıt edilir. Dikkat edilirse bazı özellik değerleri değiştirildiğinde ...
- 09 Eki 2011 05:46
- Forum: Delphi VCL
- Başlık: Yeni bileşen Width ve height sorunu
- Cevaplar: 7
- Görüntüleme: 2298
Yeni bileşen Width ve height sorunu
Merhaba!
Ben yeni bir klavye bileşeni yazıyorum. Ancak bir yerde takıldım bir türlü çözüm bulamadım.
Tanım şu şekilde.
type
TdcKlvDil = (klvTurkce, klvAlmanca, klvIngilizce);
type
TdcKlavye = class(TCustomControl)
private
{ Private declarations }
FOnClick_Caps : TNotifyEvent;
FOnClick ...
Ben yeni bir klavye bileşeni yazıyorum. Ancak bir yerde takıldım bir türlü çözüm bulamadım.
Tanım şu şekilde.
type
TdcKlvDil = (klvTurkce, klvAlmanca, klvIngilizce);
type
TdcKlavye = class(TCustomControl)
private
{ Private declarations }
FOnClick_Caps : TNotifyEvent;
FOnClick ...