想設定Position的值. Thanks

void __fastcall TForm1::Skin1ScrollTrack(TObject *Sender,
      ISkinObject *Source, long NewPos)
{        DWORD volume;
    WideString temp;
    Source->GetName(&temp);
    NewPos=65535;
    //Source->
    ASkinScrollBar1->Position=33;
    AnsiString str = temp;
    if(str=="ASkinScrollBar1")
      Edit1->Text = 66-NewPos;
    else if(str=="ASkinScrollBar2")
      Edit1->Text = 66-NewPos;
} 

err: 發表人 - asvmfd 於 2004/12/02 00:37:08

想在這裹貼上自已的bmp底圖 Thanks

呃...我是不知道你為什麼要這麼做, 不過當Edit放上圖之後, 他就是一個Container了, 會失去原本可以可讓使用者輸入字的功能了.

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TImage* image;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  image = new TImage(this);
  image->Picture->Bitmap->LoadFromFile("c:\\1.bmp");
  image->Left = 30;
  image->Top = 30;
  Edit1->InsertControl(image);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete image;
}
//---------------------------------------------------------------------------

結果如下圖

要貼圖容易，但是要在上頭打字而不破壞背景圖就比較難了，貼圖方式如下(將 Image1 的圖貼到 Edit2)：

StretchBlt(GetWindowDC(Edit2->Handle), 2, 2, 
    Edit2->Width - 4, Edit2->Height - 4,
    Image1->Picture->Bitmap->Canvas->Handle,
    0, 0, Image1->Width, Image1->Height, SRCCOPY);

但是一打字背景圖就會被破壞了，我弄了一個很簡單的程式，可以解決這問題，程式很陽春僅供參考： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61255 發表人 - allenchan 於 2004/12/09 23:08:33

Zard兄 是有點像一些外掛的程式.例如, Plus memo之類的東東,可以貼上底圖又可以像Memo的操作. 如果不能輸入字就>_<.....

allenchan兄的方法似乎可行.ListBox似乎較複雜些. 我來研究研究..... 謝謝你喔