Die Suche ergab 11 Treffer
- Di 23. Jun 2015, 14:29
- Forum: Einsteigerfragen
- Thema: Prozeduren in zweiter Form
- Antworten: 2
- Zugriffe: 1001
- Di 23. Jun 2015, 14:13
- Forum: Einsteigerfragen
- Thema: Prozeduren in zweiter Form
- Antworten: 2
- Zugriffe: 1001
Prozeduren in zweiter Form
Ich möchte relativ einfsch eine zweite Form erstellen, die aus der ersten per buttonclick geöffnet wird, und auf der ein Button eine Prozedur ausführt. das sieht bisher so aus:
//...
procedure b1c(Sender: TObject);
procedure b2c(Sender: TObject);
var
Form1: TForm1;
f:TForm;
b1,b2:TButton ...
//...
procedure b1c(Sender: TObject);
procedure b2c(Sender: TObject);
var
Form1: TForm1;
f:TForm;
b1,b2:TButton ...
- Do 14. Nov 2013, 16:59
- Forum: Einsteigerfragen
- Thema: [geklärt] Formular zurücksetzten
- Antworten: 6
- Zugriffe: 5243
Re: Formular zurücksetzten
Ah, Danke!
- Do 14. Nov 2013, 16:17
- Forum: Einsteigerfragen
- Thema: [geklärt] Formular zurücksetzten
- Antworten: 6
- Zugriffe: 5243
Re: Formular zurücksetzten
Damit wird dann ein
Ich versuchs mal genauer:
var
Form1: TForm1;
g: integer;
s: array[1..289] of tPoint;
shape: array[1..289] of tshape;
procedure ...
begin
if (...) then
begin
shape[g]:=tShape.create(self); // shape erstellen
shape[g].parent:=self; //zu Form1 zuweisen
shape[g].top := s[1 ...
Ich versuchs mal genauer:
var
Form1: TForm1;
g: integer;
s: array[1..289] of tPoint;
shape: array[1..289] of tshape;
procedure ...
begin
if (...) then
begin
shape[g]:=tShape.create(self); // shape erstellen
shape[g].parent:=self; //zu Form1 zuweisen
shape[g].top := s[1 ...
- Mi 13. Nov 2013, 20:27
- Forum: Einsteigerfragen
- Thema: Pfeiltasten werden nicht angenommen
- Antworten: 7
- Zugriffe: 5322
Re: Pfeiltasten werden nicht angenommen
Wenn du mit (Hexadez.-)Zahlen für die Keys arbeitest musst du ein $ vorstellen:
TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState // Word =Zahl
);
begin
If Key = $72 then flieger.Top:= flieger.Top -10;
if Key = $80 then flieger.Top:= flieger.Top +10;
If Key = $77 then ...
TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState // Word =Zahl
);
begin
If Key = $72 then flieger.Top:= flieger.Top -10;
if Key = $80 then flieger.Top:= flieger.Top +10;
If Key = $77 then ...
- Mi 13. Nov 2013, 20:18
- Forum: Einsteigerfragen
- Thema: [geklärt] Formular zurücksetzten
- Antworten: 6
- Zugriffe: 5243
Re: Formular zurücksetzten
Was wäre denn der Anfangswert für ein TShape (s[1].shape)?
- Mi 13. Nov 2013, 15:06
- Forum: Einsteigerfragen
- Thema: [geklärt] Formular zurücksetzten
- Antworten: 6
- Zugriffe: 5243
[geklärt] Formular zurücksetzten
Ich möchte gerne 8ausgelöst durch einen If-Befehl in einem Timer) ein Form1 auf den Anfanszustand zurücksetzten (so wie es beim Start der Anwendung war), also alle Variablen zurücksetzten, alle Elemente mit den alten Eigenschaften versehen. Wie geht das?
Danke schon mal
Simor
Danke schon mal
Simor
- Do 19. Sep 2013, 16:43
- Forum: Einsteigerfragen
- Thema: Integer in Real umwandeln
- Antworten: 6
- Zugriffe: 2434
- Do 19. Sep 2013, 16:35
- Forum: Einsteigerfragen
- Thema: Integer in Real umwandeln
- Antworten: 6
- Zugriffe: 2434
Re: Integer in Real umwandeln
Dann wird aber schon c gerundet und nicht erst das Gesamtergebnis...
- Do 19. Sep 2013, 16:22
- Forum: Einsteigerfragen
- Thema: Integer in Real umwandeln
- Antworten: 6
- Zugriffe: 2434
Re: Integer in Real umwandeln
Code: Alles auswählen
var
fb,b: integer;
c: real;
begin
b := trunc(inttofloat(b)+c*inttofloat(fb))
end;- Do 19. Sep 2013, 15:54
- Forum: Einsteigerfragen
- Thema: Integer in Real umwandeln
- Antworten: 6
- Zugriffe: 2434
Integer in Real umwandeln
Hallo.
Wie kann man Integer- in Real-Variablen umwandeln?
inttofloat erzeugt beim komplimieren die Fehlermeldung >>Error: Identifier not found "shortinttofloat"<<
Schon mal Danke, Simor
Wie kann man Integer- in Real-Variablen umwandeln?
inttofloat erzeugt beim komplimieren die Fehlermeldung >>Error: Identifier not found "shortinttofloat"<<
Schon mal Danke, Simor
Verein
Links
Suche