You must show us part of your code. I'm using qtlcl for years and never had such problems.
// FormShow from OwnerForm
procedure TfmClassAGroup1.FormShow(Sender: TObject);
begin
Self.BorderStyle := bsNone; // Edited
Self.BorderIcons := [biSystemMenu];
Image1.Picture.Bitmap := GetItemImage('CAG1I1');
Image2.Picture.Bitmap := GetItemImage('CAG1I2');
Image3.Picture.Bitmap := GetItemImage('CAG1I3');
Image4.Picture.Bitmap := GetItemImage('CAG1I4');
Image5.Picture.Bitmap := GetItemImage('CAG1I5');
Image6.Picture.Bitmap := GetItemImage('CAG1I6');
Image7.Picture.Bitmap := GetItemImage('CAG1I7');
end;
// ShowModal from OwnerForm
procedure TfmClassAGroup1.ProgramItem4Click(Sender: TObject);
begin
Bolts.SetItemCode('CAG1I4');
Bolts.ShowModal;
end;
// FormShow in call Form
procedure TBolts.FormShow(Sender: TObject);
var
OvenNum : integer;
i : integer;
begin
Self.BorderStyle := bsSingle;
for i := 0 to ComponentCount - 1 do if Components
is TEdit then TEdit(Components).OnChange := NumEditOnChange;
Image1.Picture.Bitmap := GetItemImage('Bolts_big');
Image2.Picture.Bitmap := GetItemImage('Bolts_small');
DiameterOfPin.SetFocus;
SetBallastWeight('0');
with dmMixCalc.imgList do
begin
GetBitmap(0, btPrintForm.Glyph);
GetBitmap(1, btClose.Glyph);
GetBitmap(6, btSaveDB.Glyph);
GetBitmap(7, btCalculate.Glyph);
end;
lbExpMixPerKgGr.Visible := StrToBool(GetSavedParam('ShowGrPerKg'));
ibxExpPerKg.Visible := StrToBool(GetSavedParam('ShowGrPerKg'));
end;