Visning af form

hvad er det helt at du er træt af? og hvad er det du vil lave?

/ZIRON

Hvordan laver du alphablend på en form ?

alphablend := true og alphablendcolor eller noget der omkring, det er en byte...

/ZIRON

I stedet for at den fader frem på dem måde som den gør med alphablend vil jeg lave min egen måde formen skal komme frem eller skjules på. Eks hvis jeg vil have at formen først kommer udefra og så arbejder sig ind mod midten og så er den fremme (kun et eks. skal oså kunne lade sig gøre med andre ting)

Jeg vil da gerne høre lidt om den der Alphablend - er lige blevet nysgerrig. Hvordan gør jeg!? Er det en komponent der ikke er med som standard!?

et eksempel:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  AlphaBlend := True;
  AlphaBlendValue := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if AlphaBlendValue > 244 then
  begin
    AlphaBlendValue := 255;
    Timer1.Enabled := False;
  end
  else
  begin
    AlphaBlendValue := AlphaBlendValue + 10;
  end;
end;

end.

Det er en god idé lige at sætte timerhastigheden ned på 10

lukker