動的に貼り付けたスピードボタンのイメージを指定するには。

解決

武田 2009-01-12 23:15:54 No: 33109

環境はWindows XP Delphi６personalです。
何度もすみません。今回は
ボタンを並べるパネルを動的に置いて、その上に
動的にスピードボタンを置き
このスピードボタンのイメージをプログラムに埋め込みたいのですが
うまくいきません。
静的（事前に）に置いたSpeedSpeedButtonにイメージを
SpeedButton10.Glyphで埋め込むようにできません。
解決方法を教えて頂けませんか。

SpeedButton10.Glyph.LoadFromFile()で表示すると
コンパイルしてもイメージファイルを添付しなければならない
ので困っています。
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
        SpeedButtonPanel:=TPanel.Create(PageControl1);//ボタンパネル
        SpeedButtonPanel.Parent:=PageControl1;
        SpeedButtonPanel.Align:=albottom;
        SpeedButtonPanel.Height:=24;

        SpeedButton10:=TSpeedSpeedButton.Create(SpeedButtonPanel);
        SpeedButton10.Parent:= SpeedButtonPanel;
  //イメージ指定
        SpeedButton10.Glyph.LoadFromFile('SpeedButton1Image.bmp');
  SpeedButton10.Top:=0;
  SpeedButton10.Width:= 23;
  SpeedButton10.Height:=22;
  SpeedButton10.Left:=SpeedButtonPanel.Left;

        SpeedButton20:=TSpeedSpeedButton.Create(SpeedButtonPanel);
        SpeedButton20.Parent:= SpeedButtonPanel;
  //イメージ指定
        SpeedButton20.Glyph.LoadFromFile('SpeedButton2Image.BMP');
  SpeedButton20.Top:=0;
  SpeedButton20.Width:= 23;
  SpeedButton20.Height:=22;
        SpeedButton20.Left:=SpeedButton10.Left+23+1;
end;

みんみん 2009-01-12 23:31:42 No: 33110

画像をリソースとして実行ファイルに埋め込んで、
TBitmapのLoadFromResourceNameで取り出せます。

武田 2009-01-13 00:06:18 No: 33111

みんみんさん、早速有り難うございます。
「画像をリソースとして実行ファイルに埋め込んで、」
具体的にはどのようにするのでしょうか？

Mr.XRAY 2009-01-13 00:27:43 No: 33112

Mr.XRAYです．

以下のページが参考になればいいのですが．
http://mrxray.on.coocan.jp/Halbow/Notes/N008.html

武田 2009-01-13 00:43:39 No: 33113

Mr.XRAY さん、早速有り難うございます。
うまくいきました。
今後ともよろしくお願いします。