Trainer Musik

[turboPASCAL]

You have a Mail

Zitat:

Fragen:
1) Wie oder mit welcher komponente mach du das Form ??

Alhablending & Transparents Farbe von Delphi6.

kann man aber auch ohne z.B. so:

Delphi-Quellcode:

const
  LWA_COLORKEY   = 1; // Use crKey as the transparency color.
  LWA_ALPHA      = 2; // Use bAlpha to determine the opacity of the layered window..
  WS_EX_LAYERED  = $80000;

function SetLayeredWindowAttributes(Wnd: hwnd; crKey: ColorRef; Alpha: Byte; dwFlags: DWORD): Boolean;
  stdcall; external 'user32.dll';

procedure MakeFormTransparent;
begin
  SetWindowLong(Form1.Handle, GWL_EXSTYLE, GetWindowLong(Form1.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

  SetLayeredWindowAttributes(Form1.Handle, clFuchsia, 200, LWA_COLORKEY + LWA_ALPHA);
end;

Zitat:

2) Hast du Bass.lib benutz um die mod/mp3 datai abzuspielen ?

Ja, Bass.Dll wird eingebunden (Bass_Dynamic.pas)

Zitat:

3) Wie blendes du das form ein und aus beim start und schlisen vom program ?

Naja. Timer hab ich nicht verwendet, dafür habe ich einen Thread benutzt.

Zitat:

4) Wie bindet man überhaupt eine dll in einer resource datei ?

Siehe Punkt 2.