отюникодить Caption

[iiunbreakableii]

Можно ли, создать новый компонент, используя предком любой другой, и переобъявить у него свойство Caption сделав его типа TwideString ,например?

[Ntlegend]

можна.. тока не TWideString, а WideString

[iiunbreakableii]

это хорошо, а можно немного поподробнее, буду бесконечно благодарен.

[Stilet]

Если на скорую руку то вот пример переопределения:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
 TButton=class(StdCtrls.TButton)
  private
    FCaption: WideString;
    procedure SetCaption(const Value: WideString);
    Procedure pnt(Var w:TWMPaint); message WM_Paint;
  published
  property Caption:WideString read FCaption write SetCaption;
 end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{ TButton }

procedure TButton.pnt(var w: TWMPaint);
var tr:TRect;pc:String;
begin
 Inherited;
  pc:=FCaption;
  tr:=ClientRect;
  DrawText(Getdc(handle),pchar(pc),Length(pc),tr,DT_CENTER or DT_VCENTER);
end;

procedure TButton.SetCaption(const Value: WideString);
var h:HWND;dc:HDC;
begin
  FCaption := Value;
  Repaint;
end;

end.

[iiunbreakableii]

Спасибо! Щас применю : )