2012-12-08 27 views

cevap

15

İlk nesne denetleyici bsNone için BorderStyle Set tasarım zamanında bsNone için BorderStyle ayarlayın. Sonra şöyle prosedürü CreateParams beyan:

type 
    TForm1 = class(TForm) 
    private 
    protected 
    procedure CreateParams(var Params: TCreateParams); override; // ADD THIS LINE! 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

ve daha iyi sınır stil için

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
    inherited; 
    Params.Style := Params.Style or WS_THICKFRAME; 
end; 
+0

Windows XP'de de düzgün görünüyor mu ve davranıyor mu? [+1] – TLama

+0

@TLama: Test etmek için XP'yi hatırlamıyor ve kullanmıyorsunuz, fakat herhangi bir sorun olmamalı diye düşünüyorum. (Cam yerine mavi kalın bir kenarlık almıyor mu?) –

+0

Teşekkürler Andreas, sınır boyutunu değiştirmenin bir yolu var mı? –

2

,

+5

Bu tek başına yeterli değildir. –

+0

@AndreasRejbrand Neden olmasın? –

+0

Sonuçları OP tarafından sağlanan görüntüyle karşılaştırın. Tüm cam sınır (ve gölge) gitti. –

1

gibi uygulamak, sen WS_BORDER bayrağını ekleyebilir. Bunun gibi

: Yumuşak bir hat daha

procedure TForm1.CreateParams(var Params: TCreateParams); 
 
begin 
 
    inherited; 
 
    Params.Style := Params.Style or WS_BORDER or WS_THICKFRAME; 
 
end;

Not sınır çerçevenin içine çekilir.

İlgili konular