模拟网页反馈按钮

Question

我喜欢在may main（MDIParent）窗体上放置一个反馈按钮，以模拟网页中的反馈按钮。

像鼠标移过去一样长大。就像网络一样。 有问题和发送数据的表单，我真的不需要它，只是视觉的东西。

有没有这样的组件？ 我不认为这很难做到，但如果它已经存在，它会让我有一段时间。

感谢

Answer 1

为了使动画幻灯片面板，您可以使用类似的代码如下：

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls; 

type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    private 
    FFeedbackBtn: TPanel; 
    FFeedbackPanel: TPanel; 
    procedure OnFeedbackBtnMouseEnter(Sender: TObject); 
    procedure OnFeedbackPanelMouseLeave(Sender: TObject); 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FFeedbackBtn := TPanel.Create(Self); 
    FFeedbackBtn.Parent := Self; 
    FFeedbackBtn.Anchors := [akLeft, akTop, akBottom]; 
    FFeedbackBtn.Caption := ''; 
    FFeedbackBtn.SetBounds(0, 0, 40, ClientHeight); 
    FFeedbackBtn.OnMouseEnter := OnFeedbackBtnMouseEnter; 

    FFeedbackPanel := TPanel.Create(Self); 
    FFeedbackPanel.Parent := Self; 
    FFeedbackPanel.Anchors := [akLeft, akTop, akBottom]; 
    FFeedbackPanel.Caption := 'Feedback panel'; 
    FFeedbackPanel.Visible := False; 
    FFeedbackPanel.SetBounds(0, 0, 250, ClientHeight); 
    FFeedbackPanel.OnMouseLeave := OnFeedbackPanelMouseLeave; 
end; 

procedure TForm1.OnFeedbackBtnMouseEnter(Sender: TObject); 
begin 
    AnimateWindow(FFeedbackPanel.Handle, 150, AW_ACTIVATE or AW_SLIDE or 
    AW_HOR_POSITIVE); 
end; 

procedure TForm1.OnFeedbackPanelMouseLeave(Sender: TObject); 
begin 
    AnimateWindow(FFeedbackPanel.Handle, 150, AW_HIDE or AW_SLIDE or 
    AW_HOR_NEGATIVE); 
end; 

end. 

更新：

这里是上面的另一个版本，目前已与像这样的垂直文字的典型反馈按钮已经在渲染上的颜料盒上展开了b utton面板：

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls; 

type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    private 
    FFeedbackBtn: TPanel; 
    FFeedbackBtnOverlay: TPaintBox; 
    FFeedbackPanel: TPanel; 
    procedure OnFeedbackBtnMouseEnter(Sender: TObject); 
    procedure OnFeedbackPanelMouseLeave(Sender: TObject); 
    procedure OnFeedbackBtnOverlayPaint(Sender: TObject); 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FFeedbackBtn := TPanel.Create(Self); 
    FFeedbackBtn.Parent := Self; 
    FFeedbackBtn.Anchors := [akLeft, akTop, akBottom]; 
    FFeedbackBtn.Caption := ''; 
    FFeedbackBtn.Color := $0000B3FF; 
    FFeedbackBtn.ParentBackground := False; 
    FFeedbackBtn.SetBounds(0, 0, 40, ClientHeight); 

    FFeedbackBtnOverlay := TPaintBox.Create(Self); 
    FFeedbackBtnOverlay.Parent := FFeedbackBtn; 
    FFeedbackBtnOverlay.Align := alClient; 
    FFeedbackBtnOverlay.OnPaint := OnFeedbackBtnOverlayPaint; 
    FFeedbackBtnOverlay.OnMouseEnter := OnFeedbackBtnMouseEnter; 

    FFeedbackPanel := TPanel.Create(Self); 
    FFeedbackPanel.Parent := Self; 
    FFeedbackPanel.Anchors := [akLeft, akTop, akBottom]; 
    FFeedbackPanel.Caption := 'Feedback panel'; 
    FFeedbackPanel.Color := $0000F9FF; 
    FFeedbackPanel.ParentBackground := False; 
    FFeedbackPanel.Visible := False; 
    FFeedbackPanel.SetBounds(0, 0, 250, ClientHeight); 
    FFeedbackPanel.OnMouseLeave := OnFeedbackPanelMouseLeave; 
end; 

procedure TForm1.OnFeedbackBtnMouseEnter(Sender: TObject); 
begin 
    AnimateWindow(FFeedbackPanel.Handle, 150, AW_ACTIVATE or AW_SLIDE or 
    AW_HOR_POSITIVE); 
end; 

procedure TForm1.OnFeedbackPanelMouseLeave(Sender: TObject); 
begin 
    AnimateWindow(FFeedbackPanel.Handle, 150, AW_HIDE or AW_SLIDE or 
    AW_HOR_NEGATIVE); 
end; 

procedure TForm1.OnFeedbackBtnOverlayPaint(Sender: TObject); 
var 
    S: string; 
    X, Y: Integer; 
begin 
    S := 'Feedback...'; 
    with FFeedbackBtnOverlay do 
    begin 
    Canvas.Brush.Color := $0000B3FF; 
    Canvas.FillRect(ClientRect); 
    Canvas.Font.Orientation := 900; 
    X := (ClientWidth - Canvas.TextHeight(S)) div 2; 
    Y := ClientHeight - (ClientHeight - Canvas.TextWidth(S)) div 2; 
    Canvas.TextOut(X, Y, S); 
    end; 
end; 

end. 

而结果：

你也应该执行一些逻辑，以防止用户隐藏在实际将填充领域的反馈面板，但它是一个天生的弱点这种反馈形式。