[Dodakaedr]

Антон_Мураткин@vk, добавьте это

читать дальше »

Код:

Welcome1:= TLabel.Create(WizardForm);
with welcome1 do
Begin
AutoSize:= False;
   WordWrap:= True;
   SetBounds(ScaleX(140), ScaleY(30), ScaleX(400), ScaleY(90));
   Transparent:=True;
   Font.Name:= 'Arial';
   Font.Size:= 10;
   Font.Color:=$FFFFFF;
   Font.Style:=[fsBold];
   OnMouseDown:=@LabelOnMouseDown;
   Parent:=WizardForm;
   Caption:=CustomMessage('Welcome1');
end;

Welcome2:= TLabel.Create(WizardForm);
with welcome2 do
Begin
AutoSize:= False;
   WordWrap:= True;
   SetBounds(ScaleX(100), ScaleY(130), ScaleX(400), ScaleY(90));
   Transparent:=True;
   Font.Name:= 'Arial';
   Font.Size:= 10;
   Font.Color:=$FFFFFF;
   Font.Style:=[fsBold];
   OnMouseDown:=@LabelOnMouseDown;
   Parent:=WizardForm;
   Caption:=CustomMessage('Welcome2');
end;