Изображение на кнопках

← →
Мурзилка (2006-05-17 12:39) [0]

Нужно узнать как на кнопку поместить изображение?
Можно ли каким-либо образом на кнопке писать в несколько строчек текст?

← →
Alien1769 © (2006-05-17 12:44) [1]

Вопрос уже обсуждался.

Но примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := GetWindowLong(Button1.Handle, GWL_STYLE);
SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);
Button1.Caption := "Line 1" + #13#10 + "Line 2!";
end;

← →
Konnor © (2006-05-17 12:47) [2]

Кидаеш на форму BitBtn, даеш ей длинный заголовок, создаеш FormCreate
в ней пишеш

var R: TRect; N: Integer; Buff: array[0..255] of Char; ...WITH BitBtn1 do begin Glyph.Canvas.Font := Self.Font; Glyph.Width := Width - 6; Glyph.Height := Height - 6; R := Bounds(0, 0, Glyph.Width, 0); StrPCopy(Buff, Caption); Caption := ""; DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R, DT_CENTER or DT_WORDBREAK or DT_CALCRECT); OffsetRect(R, (Glyph.Width - R.Right) div 2, (Glyph.Height - R.Bottom) div 2); DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R, DT_CENTER or DT_WORDBREAK); end;

← →
Мурзилка (2006-05-17 13:03) [3]

а вот если у меня есть картинка vasya.jpeg, я её могу как либо образом поместить на кнопку?

Да.
BitBtn.Glyph
SpeedButton.Glyph

← →
Мурзилка (2006-05-17 13:18) [5]

> Да.
> BitBtn.Glyph
> SpeedButton.Glyph

спасибо

Изображение на кнопках Найти похожие ветки