Hallo, meine Frage als Newbie: Sitze schon Stunden, besser seit zwei Tagen an dem Problem.
Ein Beispiel dafür wie leicht Delphi ist...
Warum nicht so eine BMP laden:
Canvas.Load (Screen, PosX,PosY, ‚C:\Bitmap.bmp’)
Stattdessen Formcreate, Application.Run,
Ich möchte Bitmaps/Banner auf der Form integrieren, habe Schnippets gesucht
und compiliert. Leider erscheint nicht mal die Showmessage(‘Create’) in der Procedure Form1.Create… die ich ergänzt habe. Nur meine leere Form. Die granit.BMP liegt definitv vor.
Problem 2:
Ich positioniere NICHT den Timer auf die Form, sondern schreibe Code aus dem Buch ab. Funktioniert AUCH NICHT und möchte meine Deklaration
Timer1:TTimer beim Compilieren entfernen. Ziehe ich den Timer auf die Form wird
erst gemeckert, das ich den Timer schon habe... grrrr....
Immer noch derselbe Mist mit Borland.
Natürlich funzt der Timer, wenn ich den Timer über die Form verwende.
Ich habe mich schon ganz dusselig gesucht. EFF EINS (Delphi Hilfe)
Ich weiss nicht mehr weiter!
Mit Visual Basic habe ich es vielleicht leichter...
Dank im voraus für Eure Antworten....
Der Code Zum Problem 1:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
| unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Bitmap: TBitmap;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Create');
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\granit.BMP');
end;
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
begin
with Bitmap do begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do begin
X := 0;
while X < Width do begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
end;
end. |
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
an dem eigentlich so banalen Problem. Nochmals vielen DANK!!!!!!!!!!
