Private'de yazılacak kod
Kod: Tümünü seç
{ Mehmet Avşar 2003}
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
Kod: Tümünü seç
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var ACanvas : TCanvas;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do begin
Brush.Color := clActiveCaption;
Font.Name := 'Trebuchet MS';
Font.Size := 8;
Font.Color := clwhite;
Font.Style := [fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),Round((GetSystemMetrics(SM_CYCAPTION) -Abs(Font.Height))/2) +1,' Finans Modülü');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;