引言: GetParentComponent 取得Parent元件後再設顏色。 為什麼要繞一大圈設顏色阿 < face="Verdana, Arial, Helvetica"> 謝謝你幫我開了一扇窗，讓我繼續這個topic..thanks... 以下是我原先想做出的功能： １＿ 我在Form1上有一個按鈕(Button1)，以及Panel1,Panel2,ToolBar1,ToolBar2， ２＿ 然後在Button1的Button1Click event 寫入--新增一個按鈕(bt01)，但新按鈕(bt01)隨機在Form1上不同的可視元件建立(如Form1,Panel1,Panel2,ToolBar1,ToolBar2..)， 而這按鈕(bt01)的上層元件(Parent)若有Color屬性，按下新按鈕(bt01)時，則重新設定上層元件(Parent)的色彩屬性為紅色。 ３＿ 而這按鈕(bt01)的OnClick函式，我想用『動態』方式解決Parent的Color屬性設定問題。 其實...若用列舉方式也可以解決，但實在是"太不優雅"了.......< >< > 所以才向各位高手求援.......

引言: SetBkColor( HDC hdc, // handle of device context COLORREF crColor // background color value );

 
        HWND hdParent = ::GetParent(Button1->Handle);
        HDC hdc = GetDC(hdParent);
        SetBkColor(hdc,0xffffff);

引言: SetBkColor( HDC hdc, // handle of device context COLORREF crColor // background color value );

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
COLORREF cl = RGB(30,10,50);
::SetBkColor( ::GetDC(Handle), cl);
}
//---------------------------------------------------------------------------

引言: void __fastcall TForm1::Button1Click(TObject *Sender) { TPanel* P=dynamic_cast(Button1->Parent); P->Color= TColor(RGB(0,0,0)); }

引言: 我是初學者 若有錯誤 請見諒 bool __fastcall ClassNameIs(const AnsiString string){ return ClassNameIs(ClassType(), string); }

成了!! cmf兄謙虛了。 感謝cmf的指導。< > (如果 >) 有些漏掉的地方我補起來了。< > < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { String str= Button1->Parent->Name; if(Button1->Parent->ClassNameIs("TForm1")) // 這裡用的是TForm延伸Type--TForm1 { TForm* P = dynamic_cast(Button1->Parent); // 這裡可用TForm或TForm1 P->Color= TColor(RGB(0,0,0)); } } 突然發現...好像變成我也在問問題... 希望

引言:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        String str= Button1->Parent->Name;
        if(Button1->Parent->ClassNameIs("TForm1")) // 這裡用的是TForm延伸Type--TForm1
        {
            TForm* P = dynamic_cast(Button1->Parent); // 這裡可用TForm或TForm1
            P->Color= TColor(RGB(0,0,0));
        }    }  

引言: 先感謝五星上將cmf兄的支援， 雖然後學覺得這個蠻有意思的『動態、強制轉型』，仍有相當大的處理空間， 還是先將此題得分結案吧，得分給實戰功力強、探討問題深入的anpino兄。 BUT...還是請cmf兄、anpino兄與各位前輩繼續指導後學此題..... anpino兄的code，看來仍逃不了"列舉"方式，處理"隨機"的Parent；"列舉"--這是題目最後底限了..... 發表人 - kung 於 2003/12/09 14:20:16

引言: 呵呵 我是初學者 以後請各位大大 多多指導 ^_^

cmf兄，甭客氣了吧...... 這個topic雖已給分....還望您在此topic多多指導..... 想到相關資料時，請回來這兒指導吧....先謝謝啦....< >< > 也衷心希望各位路過大大，給小弟這個