Programm einblenden

[Knotti2005]

Wie kann ich mein Programm einblenden es soll dabei von

AlphaBlendValue 0 auf 255 innerhalb von 1 sec gehen..

[ichbins]

so:

Delphi-Quellcode:

var
  i:integer;
begin
  for i:=1 to 255 do begin
    form1.alphablend:=i;
    sleep(1000 div 255);
    application.processmessages;
  end;
end;

[Knotti2005]

Delphi-Quellcode:

  [Fehler] Unit1.pas(31): E2010 Inkompatible Typen: 'Boolean' und 'Integer'

[ichbins]

äh, ja, muss Alphablendvalue heissen. Alphablend ist ein Booleanwert der regelt ob Alphablending überhaupt aktiviert ist.

Delphi-Quellcode:

var
  i:integer;
begin
  form1.alphablend:=true;
  for i:=1 to 255 do begin
    form1.alphablendvalue:=i;
    sleep(1000 div 255);
    application.processmessages;
  end;
  form1.alphablend:=false;
end;

[ManuMF]

Mit Sleep funktioniert es nicht, besser ist Delay.

In onformShow geht es auch nicht, da das Formular praktisch erst am Ende dieser Prozedur sichtbar wird. Aber mit einem Timer geht es:

Delphi-Quellcode:

onFormShow
begin
  Timer.enabled := true;
end;

onTimer
begin
  Timer.enabled := false;
  { Code von ichbins }
end;

Beim Timer sollte natürlich im OI enabled auf false gesetzt werden.

[edit]am Besten ist es natürlich, wenn i als Byte deklariert ist ;-)[/edit]

Gruß,
ManuMF

[turboPASCAL]

Zitat:

Zitat von ManuMF

Mit Sleep funktioniert es nicht, besser ist Delay.

:wiejetzt:

Delphi-Quellcode:

procedure TForm.FormCreate...
var i: integer;
begin
  alphablend := true;
  alphablendvalue := 0;
  show;
  for i:= 0 to 255 do begin
    alphablendvalue := i;
    application.processmessages;
    sleep(0);  // bzw sleep(1);
  end;
  alphablend := false;
end;

Und ob das tut. ;)

[ManuMF]

Also, Nach meiner Erfahrung hält sleep immer alles auf und hat an mehreren Stellen bei mir nicht in der gewünschten Weise funktioniert. Daher nehme ich Delay.

Und in onFormCreate hat das AlphaBlending bei mir nicht funktioniert, auch in onformShow. Mit einem Timer hat es dann geklappt.
Mit nicht funktionieren meine ich natürlich nicht, dass der Compiler meckert, sondern dass das Formular erst erscheint, wenn AlphaBlending auf Byte[Undurchsichtig] ist, also die Prozedur abgearbeitet ist.

Gruß,
ManuMF

[ichbins]

... was daran liegt dass bei formcreate und formshow das form noch garnicht sichtbar ist. Diese Events sind vollkommen ungeeignet dafür.