Ширина Caption у TButton

← →
ilg © (2002-08-05 11:44) [0]

Есть кнопка TButton, которая в разные моменты выполняет различные функции и, соответственно, имеет разные заголовки (Caption). Как сделать, чтобы при изменении Caption, ширина кнопки менялась соответственно ширине текста? Другими словами, как узнать ширину Caption в пикселях?
Заранее, большое спасибо!

← →
Виктор Щербаков © (2002-08-05 11:52) [1]

procedure TForm1.Button1Click(Sender: TObject);
var DC: HDC;
ButtonCanvas: TCanvas;
begin
DC := GetDC(Button1.Handle);
ButtonCanvas := TCanvas.Create;
try
ButtonCanvas.Handle := DC;
Caption := IntToStr(ButtonCanvas.TextWidth(Button1.Caption));
finally
ButtonCanvas.Free;
end;
end;

← →
Skier © (2002-08-05 12:03) [2]

>ilg

procedure TForm1.Button2Click(Sender: TObject); procedure _AdjustSize(const AButton : TButton); var ACanvas : TCanvas; ADC : HDC; begin if AButton = nil then Exit; ACanvas := TCanvas.Create; ADC := GetDC(AButton.Handle); try ACanvas.Handle := ADC; AButton.Width := ACanvas.TextWidth(AButton.Caption) + 2 * GetSystemMetrics(SM_CXBORDER); finally ACanvas.Free; ReleaseDC(AButton.Handle, ADC); end; //try end; //_AdjustSize begin _AdjustSize(Button1); end;

Мда, а ReleaseDC то я и забыл :(

Ширина Caption у TButton Найти похожие ветки