TForm im aussehn ändern?

[mkinzler]

Ja, statt dem Beispielbitmap, welches hier zur Laufzeit erzeugt wird ein vorhandenes laden.

[Clane]

aso ja kla ^^ sry bin heute wohl bissel verpeilt funzt super danke

[Popov]

Zitat:

Zitat von Clane

als ganz normales bitmap in der var da ?? richtig oda ??

Was ist "oda"?

Die Bitmap hat eine Art transparente Farbe. Diese Farbe dient dazu zu bestimmen was nicht Teil der neunen Form sein soll. Dese Farbe wird weggeschnitten.

Guck dir das Beispiel selbst genau an, studiere es. Es ist wirklich sehr einfach geschrieben. Eigentlich kann man es nicht mißverstehen.

[Clane]

soweit funktioniert das alles danke dafür schonmal aber ich bekomme das nicht compiliert ....

Zitat:

[DCC Fehler] Unit1.pas(54): E2008 Inkompatible Typen

betreffende stelle

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

begin
  Color := clRed;

  try
        //Bitmap erstellen
    

//Fehler 
AssignFile(Bmp, 'testbmp.bmp');
//Fehler
 

   //Größe des Formulars an Bitmap anpassen
    ClientHeight := Bmp.Height;
    ClientWidth := Bmp.Width;

    //Region erstellen
    RGN := CreateRGN(Bmp, Bmp.Canvas.Pixels[0, 0]);

    //Zeichenbereich eines Fensters setzen
    SetWindowRGN(Handle, RGN, True);
  finally
    Bmp.Free;
  end;
end;

end.

[mkinzler]

.LoadFromFile()

[Clane]

danke so jetz geht alles so wie es soll auch mit eigenen bitmaps ^^ danke

[hedie]

So ich roll das hier mal kurz auf... sorry...

Was muss man tun, damit es die Farben des Bitmap übernimmt?

Ansonsten funktioniert der Code ganz gut, nur ein bisschen dof, das man
Die "Form" danach nichtmer verschieben kann...

Und es hat ein paar sekunden bis es die Form übernommen hat

[MSSSSM]

ist zwar alt aber...

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var p:TPoint;
begin
if [ssLeft] = Shift then
  begin
    p:=self.ClientToScreen(Point(x,y));
    self.Left:=p.X;
    self.Top:=p.Y;
  end;

end;

da gibt leider nur nen nachteil :(

[DeddyH]

Aha, und welchen?

[toms]

Zitat:

Zitat von DeddyH

Aha, und welchen?

Dass der Code Unsinn ist..

Delphi-Quellcode:

 self.Left:=p.X; 
 self.Top:=p.Y;

:wall: