گذاشتن آیکون کنار ساعت ویندوز

[nsco_nsco]

سلام دوستان
کدی می خواستم که بیاد زمان اجرای برنامه ایکون برنامه رو در کنار ساعت قرار بده و اگز بشه گزینه هایی نیز براش قرار داد خیلی خوب می شود ممنون از کمک شما:لبخند::تشویق:::قلب:

[Mask]

این سوال یه 60 دفعه ای مطرح شده.
اگه از دلفی 7 استفاده میکنید باید از کامپوننت cooltry استفاده کنید.
اما اگه از 2009 یا 2010 استفاده میکنید این کامپوننت در خودش وجود داره.

[nsco_nsco]

سلام ممنون از پاسختون اما
من خیلی دنبال این کامپوننت تو محیط دلفی 2010 گشتم پیدا نکردم ممنون می شوم عکس ایکون و یا جای قرار گیریش رو بهم بگید در ضمن طرز کار با اون هم بهم بگید با تشکر فراوان :قلب::تشویق:

[حمید محمودی]

من خیلی دنبال این کامپوننت تو محیط دلفی 2010 گشتم پیدا نکردم

در قسمت Tool Palette یه کادر برای جستجو هست، توش کلمه TrayIcon رو سرچ کنید براتون میاره. ( در قسمت Additional هست)

نحوه استفاه آن هم در مثال زیر میتونید ببنید :




procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
{ Hide the window and set its state variable to wsMinimized. }
Hide();
WindowState := wsMinimized;

{ Show the animated tray icon and also a hint balloon. }
TrayIcon1.Visible := True;
TrayIcon1.Animate := True;
TrayIcon1.ShowBalloonHint;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
MyIcon : TIcon;
begin
{ Load the tray icons. }
TrayIcon1.Icons := TImageList.Create(Self);
MyIcon := TIcon.Create;
MyIcon.LoadFromFile('icons/earth1.ico');
TrayIcon1.Icon.Assign(MyIcon);
TrayIcon1.Icons.AddIcon(MyIcon);

MyIcon.LoadFromFile('icons/earth2.ico');
TrayIcon1.Icons.AddIcon(MyIcon);
MyIcon.LoadFromFile('icons/earth3.ico');
TrayIcon1.Icons.AddIcon(MyIcon);
MyIcon.LoadFromFile('icons/earth4.ico');
TrayIcon1.Icons.AddIcon(MyIcon);

{ Set up a hint message and the animation interval. }
TrayIcon1.Hint := 'Hello World!';
TrayIcon1.AnimateInterval := 200;

{ Set up a hint balloon. }
TrayIcon1.BalloonTitle := 'Restoring the window.';
TrayIcon1.BalloonHint :=
'Double click the system tray icon to restore the window.';
TrayIcon1.BalloonFlags := bfInfo;
end;

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin

{ Hide the tray icon and show the window,
setting its state property to wsNormal. }
TrayIcon1.Visible := False;
Show();
WindowState := wsNormal;
Application.BringToFront();
end;

[Emdad2001]

سلام . آیا میشه آیکن خود BalloonFlags رو هم عوض کرد ؟ مثلا بجای آیکن info,Warning,Error خودم یه آیکن بزارم ؟

[Delphi 2010]

بله اگه بگردی پیدا میشه
میتونید از ImageList وارد کنید

[Emdad2001]

بله اگه بگردی پیدا میشه
میتونید از ImageList وارد کنید

میشه ی مثال بیارید چون من راهی پیدا نکردم

[hadisalahi2]

مجموعه Jedi هم یک کنترل داره برای همین کار و خیلی حرفه ای هستش ، از اون هم میتونی استفاده کنی

[Emdad2001]

مجموعه Jedi هم یک کنترل داره برای همین کار و خیلی حرفه ای هستش ، از اون هم میتونی استفاده کنی

این مجموعه رایگان هستش ؟ یا اگه سورسی برای دلفی xe5 دارید بزارید دانلود کنم