Başlık çubuğu olmadan bir Delphi formunun nasıl oluşturulacağını bilen var mı? Bazı linkler/ipuçları gördüm ama tam olarak ne istediğimi ve bunu kendim yapamadım.Bir formdaki başlık çubuğunu kaldırma
Bu benim ulaşmak için çalışıyorum budur:
Başlık çubuğu olmadan bir Delphi formunun nasıl oluşturulacağını bilen var mı? Bazı linkler/ipuçları gördüm ama tam olarak ne istediğimi ve bunu kendim yapamadım.Bir formdaki başlık çubuğunu kaldırma
Bu benim ulaşmak için çalışıyorum budur:
İ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;
,
Bu tek başına yeterli değildir. –
@AndreasRejbrand Neden olmasın? –
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. –
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.
Windows XP'de de düzgün görünüyor mu ve davranıyor mu? [+1] – TLama
@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?) –
Teşekkürler Andreas, sınır boyutunu değiştirmenin bir yolu var mı? –