作为一个新手,我刚刚回答了我的第一个问题(Delphi:TImage.Create 导致访问冲突)立即遇到一个新问题:
procedure TSelectorForm.FormCreate(Sender: TObject);
var
Loop: Byte;
begin
for Loop := 1 to 10 do
begin
ArrayOfImages[Loop] := TImage.Create(SelectorForm);
MainForm.MyImageList.GetBitmap(Loop - 1, ArrayOfImages[Loop].Picture.Bitmap);
ArrayOfImages[Loop].Top := ...
ArrayOfImages[Loop].Left := ...
ArrayOfImages[Loop].Enabled := True;
ArrayOfImages[Loop].Visible := True;
end;
end;
当我显示此表单时
procedure TMainForm.MyImageClick(Sender: TObject);
begin
SelectorForm.Visible := True;
end;
图像不可见。我究竟做错了什么?
我要感谢大家的建议。希望提出基本问题可以帮助其他人避免将来问他们:-)