Hi ich hab mal Daniel_B's Transparent-Code abgeändert:
Delphi-Quellcode:
procedure DrawPicture;
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
Bild : TBitmap;
begin
Bild:= TBitmap.Create;
Bild.Width := 30;
Bild.Height := 30;
Bild.LoadFromFile('C:\Dokumente und Einstellungen\Nico Müller\Eigene Dateien\Eigene Bilder\168.bmp');
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
MyCanvas.Draw(random(Screen.Width), random(Screen.Height), Bild); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
Bild.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DrawPicture;
end;
[edit=sakura] [/delphi]-eingefügt. Mfg, sakura[/edit]