Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by passsy,
19. Feb 2007
fehler gebannt ich hab n semikolon zu viel :wall:
trotzdem komisch das es beim einen ging und beim andern nich da ich bei beiden n semikolon zu viel hatte
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by passsy,
19. Feb 2007
ich habe 2 formen und 2 mal die procedure (exact gleich)
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
point:Tpoint;
begin
if Button=mbRight
then
begin