نمایش BaloonHint در مکان دلخواه

[Beginner2013]

سلام،وقتی نشونش میدم بالا گوشه صفحه ظاهر میشه و نصف پیامم دیده نمیشه،چیکارش کنم؟
با تشکر

[SayeyeZohor]

فكر كنم بتوني position مربوط بهش رو پيدا كني

[SayeyeZohor]

سورستو بذار چك كنم
من كامپوننت بالن رو ندارم

[بهروز عباسی]

درود
من در XE2 این کد رو تست کردم
کافیه یک Button روی فرم بیارید و طبق کد زیر عمل کنید.
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;

procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
BalloonHint1: TBalloonHint;
begin
BalloonHint1 := TBalloonHint.Create(self);
with Button1 do
begin
CustomHint := BalloonHint1;
ShowHint := true;
Hint := 'Programming with delphi XE2';
end;
end;

end.

موفق باشید.