Привет всем с вами Владимир Любаев и в этом уроке я хочу рассказать вам, как загрузить на обычную BitBtn или SpeedButton кнопку картинку формата jpg или ico

Итаку начинаем. Создаем новый проект и кидаем на форму компоненты BitBtn и Image оба с закладки Additional. Кликаем два раза по компоненту Image и загружаем в него любую картинку jpg или ico формата.

Так основные приготовления завершены, осталось самое вкусненькое, а именно код.

Создаем обработчик событий OnClick на кнопке, Delphi автоматически сгенерировал шаблон для нашей процедуры, посмотрите теперь как написано у меня и добавьте недостающие строки к себе в код.

procedure TForm1.BitBtn1Click(Sender: TObject);  
VAR  
BMP: TBitmap;  
begin  
BMP:= TBitmap.Create;  
try  
bmp.Width:= Image1.Picture.Graphic.Width;  
bmp.Height:= Image1.Picture.Graphic.Height;  
bmp.Canvas.Draw (0, 0, Image1.Picture.Graphic);  
BitBtn1.Glyph:= BMP;  
finally;  
bmp.Free;  
end;  
end;  

Вот собственно и все, запускаем проект жмем на кнопку. Вуаля.... картинка которая была ранее загруженна в image теперь отображаеться на кнопке!

Добавлено: 01 Августа 2018 06:53:06 Добавил: Андрей Ковальчук Нравится 0

Добавить