How to implement transparent buttons in Delphi

Dear readers, in the actual delphi programming practice, we can use button controls to create button keys in the program. But when using other software, we can often see the effect of transparent buttons. So how to achieve the effect of transparent buttons in delphi? The author searched the Internet for a lot of time but did not find the controls in this area, so he decided to DIY it himself. The following is the author who will share his experience with readers.

To implement transparent buttons, three controls are required in total - image, label, and bevel. The image control is placed to highlight the transparent effect (as the background), and the label is to display the words on the key. The bevel displays a three-dimensional box. (This control can achieve the effect of showing a protruding effect when the mouse moves to the button) Let’s take a look at the specific steps below.

1. Please build a project file in delphi6.0 first

2. Please select a picture first and pay attention to its size. Then adjust the form to the same size as the picture.

3. Then place an image control on the form and adjust its Align attribute to alclient. In this way, the urine and defecation of the image are exactly the same as the size of the form, and it can be used as the background. Then select the picture property and click the small button. Press the load key in the pop-up window to select the picture you want to use as the background.

4. Then place a label control on the form and set the text content and font size of the button reasonably. Click the Transparent property to set the label as transparent.

5. Finally, place a bevel control on the form. Set the shape attribute to bsBOX, then set the style attribute to bsRaise (this is a sudden effect), and change the visible attribute to false (this program is not visible when running).

6. Reasonably set the positions of label and bevel controls so that the positions and positions of bevel and label controls are just the same. If you think it is difficult to adjust the position using the mouse. You can use Ctrl+arrow to micro-shift the control and use Shift+arrow to fine-size the control.

Let’s start programming now. Please set the following events and statements in the code window.

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Bevel1.visible:=true; //Make the bevel control visible label1.BringToFront; //Place the label1 control at the front to ensure that The onclick event can be executed end; procedure TForm1.Label1Click(Sender: TObject); begin //This is the code that needs to be executed when clicking the button is added here to end; procedure TForm1.Image1MouseMove(Sender: TObject;Shift: TShiftState; X,Y: Integer); beginBevel1.visible:=false;//When the mouse moves the image control, the button of the bevel control is not visible and does not raise the end;

In addition, in order to ensure that the transparent button does not look very monotonous, you can also place an icon near the label control, which will make the user look more clear.