Balloon

[dogan]

İyi günler...

Balloon monitörün "ekran" tan ortasında çıkmasını ve yazı genişliğine göre değilde belirlediğim boyutta nasıl ayarlayabilirim...

Kod: Tümünü seç

procedure TForm4.BalloonHintMesaj(Mesaj: String); // BalloonHint mesaj
var
  R: TRect;
begin
  with MainForm.BalloonHint do
  begin
    ImageIndex := 39;
    Description := Mesaj; // Mesaj
    R := Panel.BoundsRect;*************
    R.TopLeft := ClientToScreen(R.TopLeft);
    R.BottomRight := ClientToScreen(R.BottomRight);
    ShowHint(R);
    HideAfter := 3000; // Ekranda kalma süresi
  end;
end;

[SimaWB]

Biliyorsunuzdur, ShowHint TPoint tipinde parametreyle de kullanılabilir:

Kod: Tümünü seç

Pt: TPoint;
begin
  ...
  Pt.X := Screen.Width div 2;
  Pt.Y := Screen.Height div 2;
  BalloonHint1.ShowHint(Pt);