Über Formular Text "zeichnen" und wieder löschen?

[moelski]

Moin !

Ich habe da ein Formular, wo Daten von einem Gerät eingetragen werden. Das dauert eine Weile ...
In der Zeit ist das Formular auch für Eingaben gesperrt. Nun würde ich gerne dem User unmissverständlich klar machen das er im Moment nichts machen kann ausser warten.

Dazu würde ich gerne "über" das Formular eine Schrift legen. Ich habe das mal etwas zusammenmontiert -> siehe Bild.
Hat für sowas jemand ein Stück Code (und auch um das wieder zu entfernen)?

[Sherlock]

Üblicherweise macht man so etwas per modalem Fenster in dem ein fortschrittsbalken läuft.
Vergleiche hierzu auch den ziemlich aktuellen Thread http://www.delphipraxis.net/internal...t.php?t=154785

Sherlock

[moelski]

Hmm, da haste auch wieder wahr.

Aber falls jemand dennoch zu diesem Thema nen Stück Code bereit stellen kann würde ich mir das gerne mal ansehen.

[Sherlock]

So aus dem Bauch heraus würde ich ein TPNGImage über alles legen und dort rein schreiben...sollte mit ein bisschen gutem Willen eigentlich so funktionieren.

Sherlock

[turboPASCAL]

Einfach ein Panel oder eine andere Form über die das Fenster legen.
Dann noch ein Label oder so etwas drauf und schon ist's fertig.
Nun noch das Bitmap der Form etwas bearbeiten und schohn hat man ein "Ghostwindow". ;)
Der Vorteil, das Ding ist abwärtskompatibel.

[jesus.or.christ]

es gibt eine methode von canvas

Delphi-Quellcode:

imgCanvas.Canvas.TextOut(x,y,'String'); 
//x: Position auf der x-Achse, y: Position auf der y-Achse, String: ausgegebener text
imgCanvas.Canvas.Font.Height:=20;
imgCanvas.Canvas.Font.Size:=20;
imgCanvas.Canvas.Font.Name:='Times New Roman';
imgCanvas.Canvas.Font.Style:=[fsBold,fsItalic,fsUnderline];
refresh //wieder löschen

so müsste es funktionieren