Quellcode des Programms in Delphi übersetzen - Hilfe gesucht

[ichbins]

// meine Antwort im Post oben

als nächstes hängt er sich bei der Ausgabe im Edit2 auf :roll:

:wall:

:wall:

:wall:

du kannst die Ausgabe aber auch per

Delphi-Quellcode:

showmessage(hextostr(neu));

machen.

[Hudel1965]

Hi :)

versuchs mal so :

serial:=Format('%x',[neu]);

Gruß

Hudel

[KSebi]

ja also jetzt geht ja schonmal alles bis auf die ausgabe, die is nochn bissel blöde.

sollte dann halt doch in edit2 stehen. :/

Also wenn wer noch ne Idee hat - ich bin dran interessiert ^^

Und danke an ichbins und an Hudel1965 :D

Mal sehn obs heut noch fertig wird ;)

[KSebi]

So also ich habe es geschafft ^^

War eigentlich ganz simpel ^^

Statt

Delphi-Quellcode:

Edit2.Text := var;

habe ich nun das geschrieben:

Delphi-Quellcode:

Form1.Edit2.Text := var;

Und schon keine Errors mehr - PS: das mit dem

Delphi-Quellcode:

Format('%x',[var]);

is super, schön, dass Delphi das hat, braucht man keine eigene Funktion mehr dafür ;)


An dieser Stelle noch einmal vielen Dank an alle Helfer.
Proggy is fertig - zwar is es eher nutzlos, weil es nur zu testzwecken geschrieben wurde, aber es funzt, und das war die Aufgabe ^^

Also viiiiiiiiiielen Dank an alle!

PS: Ich mach fertige Datei einfach ma in Anhang ;)
PPS: Auch wenns niemand braucht ^^ hehe

[ichbins]

wow...

wie machst du das mit der Grafik?

[KSebi]

Hi ichbins,

also das mit der grafik is nix weiter als ein Formular ohne border. Da hab ich einfach en Image, das ich in Photoshop erstellt habe draufgeklatscht also mitm TImage oder wie das dingens da heißt ^^ Ja das is es eigentlich auch.

Ja und wie du wohl bemerkt hast, kann man da noch nix verschrieben, das hab ich noch net gemacht :/ kommt aber noch ^^

[Daniel Schuhmann]

Zitat:

Zitat von KSebi

Ja und wie du wohl bemerkt hast, kann man da noch nix verschrieben, das hab ich noch net gemacht :/

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const 
  SC_DRAGMOVE = $F012;
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

:-D

Daniel

[KSebi]

Hehe :D cool,

vielen vielen Dank an Daniel Schuhmann ^^

Diese procedure ist wirklich nützlich.
Super und nochma danke, dass du sie hier gepostet hast ^^

So ist das Proggy doch viel netter ^^ *freu*

Also nochmal vielen Dank für all eure Hilfen und Tipps ^^

Super community ;)

Tschööö