Yanıp sönen başlık

[KarizMan]

Arkadaşlar,
Msn 'deki gibi görev çubuğunda yanıp sönen başlığı nasıl yapabiliriz. Bir api olması lazımdı ama bulamadım.
iyi Çalışmalar

[bobasturk]

merhaba,

yanıp sönen diye forumda bir arama yaptırdım ve flashwindow() diye bir özellik öğrendim. belki aradığın api budur. birde eğer bilgisayarı kasmayacaksa timer ilede olabilir heralde

yinede arama kirterleri ile pek çok cevaba ulaşabilirsin sanırım

kolay gelsin

[lazio]

Kod: Tümünü seç

FlashWindow(Application.Handle, True);

[KarizMan]

Cevaplarınız için teşekkürler

İyi çalışmalar

[KarizMan]

Arkadaşlar,
FlashWindow() apisini kullanmam gerek fakat FlashWindow(application.handle,true) dediğimde,
ana pencerenin başlığı yanıyor. Benim istediğim, hangi pencerede bunu yazarsam onun yanması bunu nasıl halledebilirim?
FlashWindow(form1.handle,true) şeklinde yazıncada istediğim olmuyor.
İyi Çalışmalar

[bobasturk]

merhaba,

deneme yaparken aklıma geldi delphide gerekli kodu yazmadı isen genelde ana form görev çubuğunda görünür diğer formlar görev çubuğu üzerinde küçülürler. öncelikle her formun görev çubuğunda görünmesini sağlamalısın gibi geliyor. bu konu forumda konuşuldu aratırsan sonuçlardan birşey çıkarabilirsin

kolay gelsin

[KarizMan]

merhaba,

ben formları ayrı ayrı gösterebiliyorum. ama kendi pencereleri yanmıyor. Ana formun başlığı yanıyor. Kendi pencerelerinin başlıklarını nasıl yakabilirim?

İyi çalışmalar

[KarizMan]

Arkadaşlar,
acaba bilen yok mu?
sorumun yanıtsız kalmamasını umuyorum.
İyi çalışmalar

[vedatkaba]

Kod: Tümünü seç

flashwindow(handle,true);
         flashwindow(application.handle,true);

Bu şekilde çalışıyor..

[KarizMan]

merhabalar,

Kod: Tümünü seç

FlashWindow(application.handle,true);

şeklinde yapınca ana form yanıyor. diğerlerini yakmak istiyorum.
2 satır yazmışsınız. 1. satır ne oluyor anlamadım?
iyi çalışmalar

[rsimsek]

Bazı şeyleri google babaya sormakta fayda var Ayrıca Timer nesnesi ile kullanmak gerekiyor.

http://wall.riscom.net/books/delphi/del_faqs/803.html
http://www.delphicorner.f9.co.uk/articles/apps9.htm

Hadi bir de basit bir örnek yapalım

flash.dpr

Kod: Tümünü seç

program flash;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

unit1.pas

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  unit2;

var
  bFlash: boolean = False;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bFlash := not bFlash;
  FlashWindow(Handle, bFlash);  // aktif form flaş için.
  FlashWindow(Application.Handle, bFlash);  // görev çubuğundaki flaş
end;

end.

unit1.dfm

Kod: Tümünü seç

object Form1: TForm1
  Left = 267
  Top = 198
  Width = 574
  Height = 326
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 256
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Form&2'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Interval = 250
    OnTimer = Timer1Timer
    Left = 128
    Top = 160
  end
end

unit2.pas

Kod: Tümünü seç

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

var
  bFlash: boolean = False;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm2.FormDeactivate(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  bFlash := not bFlash;
  FlashWindow(Handle, bFlash);
  FlashWindow(Application.Handle, bFlash);
end;

end.

unit2.dfm

Kod: Tümünü seç

object Form2: TForm2
  Left = 479
  Top = 359
  Width = 531
  Height = 266
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Left = 56
    Top = 136
  end
end

[KarizMan]

Hocam çok teşekkür ederim, çok işime yaradı.
iyi çalışmalar

[rsimsek]

Kolay gele..