枚舉爲整數，反之亦然（使用組合框項目索引）

不知道我在做什麼錯在這裏枚舉爲整數，反之亦然（使用組合框項目索引）

//update controls from main form Tshape 
form2.cbxShape.ItemIndex:= ord(Shape1.Shape); 
form2.cbxColor.Selected:= Shape1.Brush.Color; 
form2.cbxStyle.ItemIndex:= Ord(Shape1.Brush.Style); 
if form2.ShowModal = mrOK then 
begin 
    //update main form Tshape from controls 
    Shape1.Shape:= TShapeType(form2.cbxShape.ItemIndex); 
    Shape1.Brush.Color:= form2.cbxColor.Selected; 
    Shape1.Brush.Style:= TBrushStyle(form2.cbxStyle.ItemIndex); 
end;

，我沒有得到正確的形狀或刷子樣式（顏色正常工作）

列表框項目如下：

Circle 
Ellipse 
Rectangle 
RoundRect 
RoundSquare 
Square

和

BDiagonal 
Clear 
Cross 
DiagCross 
FDiagonal 
Horizontal 
Solid

來源

2013-02-09 JakeSays

看的TShapeType和TBrushStyle的聲明：

TShapeType =（stRectangle，stSquare，stRoundRect，stRoundSquare， stEllipse，stCircle）; TBrushStyle =（bsSolid，bsClear，bsHorizontal，bsVertical， bsFDiagonal，bsBDiagonal，bsCross，bsDiagCross）;

您的列表框中的項目必須是相同的順序，包含相同的相應枚舉。

來源

2013-02-09 22:05:51

啊，我把這些值直接從T形性降了下來，似乎他們是按字母順序排序。感謝您的正確方向 – JakeSays 2013-02-09 22:31:11

這個問題已經由LU RD解答。
的另一種方法，從任何排序independed，達到目標可能是

implementation 
uses TypInfo; 
{$R *.dfm} 

procedure TForm1.ComboBox1CloseUp(Sender: TObject); 
begin 
    SetPropValue(Shape1,'Shape','st' + Combobox1.Text); 
    Caption := StringReplace(GetPropValue(Shape1,'Shape',true),'st','',[]); 
end;

來源

2013-02-09 23:00:12 bummi

枚舉爲整數，反之亦然（使用組合框項目索引）

回答

相關問題