Hey!
Schreibe grad nen Programm, welches Städte abfragt und dann anzeigt, wo sie liegen in Form von Shapes.
Nun möchte ich aber aShape wieder verschwinden lassen bei nem Buttonklick oder ähnlichem. Allerdings meckert das Prog immer rum am Startanfang, da ja noch kein Punkt zum löschen da is..
Wie kann ich dem Prog sagen, dass er den Punkt zwar unsichtbar machen soll, allerdings nich beim 1. Buttonklick sondern erst ab dem 2.?
Hab das Prog mit Quelltext ma angefügt, hoffe es findet jemand Zeit..
Danke
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:
| procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label5.Visible:=False;
if bShape.Visible=false then aShape.Visible:=false;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Abstand: real;
begin
if Button1.Enabled then Exit;
Label3.Visible := true;
bShape.Visible := true;
aShape := TShape.Create(Self);
aShape.Parent := self;
aShape.Width := 4;
aShape.Height := 4;
aShape.Shape := stCircle;
aShape.Top := y + Image1.Top - 2; aShape.Left := x + Image1.Left - 2;
Abstand := Round(Sqrt(Sqr(CorrectX - (x + 14)) + Sqr(CorrectY - (y + 102))));
Label2.Caption := FloatToStr(Abstand * 44.3);
Gesamtkm := Gesamtkm + Abstand * 44.3;
Label7.Caption := FloatToStr(Gesamtkm);
Label8.Visible:=true;
Button1.Enabled := True;
end; |
Moderiert von 
Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 19.03.2008 um 22:56
