programbar på process-linien

det er fx. når der kommer en "onMessage"

brug FlashWindow() den får det at blinke !

JEns B

jeg har brugt:

procedure TForm1.NMMSGServ1MSG(Sender: TComponent; const sFrom,
  sMsg: String);
begin
  FlashWindow(Application.Handle, True);
  //application.Restore;
  memo1.Lines.Add('');
  memo1.Lines.Add('Fra '+sFrom + ' > '  + sMsg);
end;

men den bliver bare mørk og for bliver sådan!

du skal kalde den fra en timer af ...

Jens B

prøv noget alla det her :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer1.Tag := 0;
  Timer1.Interval := StrToIntDef(Edit1.Text, 100);
  Timer1.Enabled := true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  tmp : Boolean;
begin
  Timer1.Tag := Timer1.Tag + 1;
  FlashWindow(Application.Handle, Timer1.Tag mod 2 = 0)
end;


Jens B

prøv det her i stedet :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer1.Interval := StrToIntDef(Edit1.Text, 100);
  Timer1.Enabled := true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Application.Handle, true)
end;


prøv med værdier omkring 150-200

Jens B

jeg er ikke helt med på den -
skal jeg sætte en timer igang ved formens oncreate

det skal være noget med at den ikke blinker mere når skærmen maksimeres

jeg kan ikke helt se, hvornår jeg skal kalde timeren?

du skal sætte timeren igang når den skal blinke. Og stoppe den når den ikke skal blinke mere !

Jens B

er det grimt at slå timeren fra på formens onClick - jeg kan ikke lige komme på andet altså - altså et eller andet:

if timer.enablet then timer.diablet := false;
??
den vil jo blive kørt hver gang man laver noget som helst!

sorry

if timer.enablet then timer.enablet := false;