[Fun-Tool] EKG-PC-Monitor

[turboPASCAL]

Übrigens:

Delphi-Quellcode:

function IsWindowsXP: Boolean;
begin
  Result := (Win32MajorVersion = 5) and (Win32MinorVersion = 1);
end;

// ---------------------------------------------------------------------------

procedure TfrmPcEkg.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if IsWindowsXP then
    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

procedure TfrmPcEkg.FormCreate(Sender: TObject);
var i: Integer;
begin
  Caption := Application.Title;
  DoubleBuffered := True;

reicht, da muss nicht noch:

Delphi-Quellcode:

procedure TfrmPcEkg.FormCreate(Sender: TObject);
var i: Integer;
begin
  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);

so ein Doppelmoppel.

Zitat:

[edit] Was bringt schatten? [/edit]

Schatten!
Damit ist die Form nicht so platt auf dem Desktop.