تغییر فونت Titel فرم

[javidtaheri]

چگونه فونت قسمت Title فرم تغییر میکند؟

[moradi_am]

تا آنجا من میدونم باید در controlpanel.display.apearance تغییر دهید

[javidtaheri]

دوست عزیز از طریق کدنویسی چطور؟

[hr110]

با سلام، چند روش وجودداره:
1- (روش عمومی) کامپوننتهای مجانی که در اینترنت وجود دارد
2- با استفاده از canvas، البته این روش کامل نیست و با کمی تحقیق میتوانید کاملش کنید:


.........

private
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;

.........

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
S : string;
Cns : TCanvas;
begin
Cns := TCanvas.Create;
try
Cns.Handle := GetWindowDC(Form1.Handle);
with Cns do
begin
S:='این یک عنوان فارسی است';
Brush.Color := clActiveCaption;
Font.Name := 'Tahoma';
Font.Size := 8;
Font.Color := clWhite;
Font.Style := [fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER)+1,
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) + 2, S);
end;
finally
Cns.Free;
end;
end;

[javidtaheri]

دوست عزیز از روش شما استفاده کردم ولیکن وقتی فرم دیگری را باز میکنم عنوان محو میشود و وقتی روی ان کلیک ممیکنم دوباره ظاهر میشود چگونه این مشکل حل میشود

[hr110]

البته این روش کامل نیست و با کمی تحقیق میتوانید کاملش کنید مابقیشو دیگه دوستان یا خودت باید زحمتشو بکشی:wink:

[javidtaheri]

یک کامپوننت پیدا کردم ولی مل delphi 5 است
کسی کامپوننت بهتر برای دلفی 7 دارد؟

[ali643]

فکر کنم Dynamic Skin Form همچین کاریو برات می کنه چند بار خودم تست کردم

[javidtaheri]

لطفا توضیح بیشتری بدهید.