|
> という連鎖でいろいろ整備しました．
整備中に見つけたバグ
procedure TForm1.Button2Click(Sender: TObject);
begin
//要素そのものがTPanelなのでキャストは不要
FPanelList[1].Visible := False;
if Assigned(FPanelList) then begin
if FPanelList.Count > 2 then begin
FPanelList.Delete(2);
end;
end;
end;
if Assigned(FPanelList) then begin
が意味ない．
> ジェネリックスの継承クラスを作成して・・・
できねぇよ．
最近報告のあったコンテキストメニューもそうですが，
こういうのがまだまだあるんだろろうな・・・
|