On Key Down funktioniert nicht

[Helmi]

doppelte Verneinungen gibts nur in der bayrischen Sprache
ansonsten:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  if inter then  //inter ist schon Boolean
 begin

statt:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  if not inter = false then
 begin

und bitte nicht auf true abfragen
statt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
  if inter = true then
 begin

gleich so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
  if inter then
 begin

[fox67]

Zitat von Helmi:

doppelte Verneinungen gibts nur in der bayrischen Sprache
ansonsten:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  if inter then  //inter ist schon Boolean
 begin

statt:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  if not inter = false then
 begin

und bitte nicht auf true abfragen
statt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
  if inter = true then
 begin

gleich so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
  if inter then
 begin

Stimmt hab ich gleich mal geändert Danke
aber leider funktioniert es immer noch nicht dafür habe ich einen verdächtigen und zwar avast den meine Delphi programme werden immer mal wieder von avast blockiert

[Popov]

Wenn wir schon dabei sind, so geht es auch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  inter := not inter;
end;

//Edit:

Was soll das Programm machen?

[fox67]

Hat Bummi schon geschrieben

[fox67]

Es liegt eindeutig an der abfrage ob inter = true ist warum auch immer

[Popov]

Zitat von fox67:

Hat Bummi schon geschrieben

Nicht bemerkt.

Du suchst Schutz vor deinem Bruder? Hier mein altes Programm "Irrer Iwan". Und bedenke, mit Strg-Alt-Mausklick kommt du wieder raus.

Delphi-Quellcode:

//****************************************************************************//
//                                                                            //
//                               IRRER IWAN                                   //
//                                                                            //
//****************************************************************************//

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsNone;
  FormStyle := fsStayOnTop;
  Width := 1;
  Height := 1;
  Timer1.Interval := 1;
  //und nicht vergessen, mit ALT+F4 kann man ein Programm beenden ;)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Left := Mouse.CursorPos.X;
  Top := Mouse.CursorPos.Y;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //mit STRG+ALT+linke-Maustaste kann man das Programm beenden
  if (ssCtrl in Shift) and (ssAlt in Shift) and (ssLeft in Shift) then Close;
end;

Es ist natürlich ein Juxprogramm, aber...

[Bummi]

Bleibt eigentlich fast nur noch übrig, dass mit vk_down etwas anderes gemeint/verstanden war als "Pfeil ab".

Delphi-Quellcode:

procedure TForm1.OnKey(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
//if Key = vk_down then 
inter := not inter;
end;

oder dass OnKey etwas von Hand geschriebenes, nicht im OI zugeordnetes ist, also nicht das FormKeyDown (umbenannt) welches vom OI erstellt und verwendet wird.

[Maiky]

Zitat von Popov:

Du suchst Schutz vor deinem Bruder? Hier mein altes Programm "Irrer Iwan". Und bedenke, mit Strg-Alt-Mausklick kommt du wieder raus.

Was hindert den Bruder daran per Taskmanager das Programm zu beenden oder einfach mittels ALT+F4? Was soll es eigentlich bringen die Maus rumspringen zu lassen, wenn man mit den Cursors und Shortcuts weiterhin normal das System bedienen kann?

Wenn du dein System schützen möchtest, dann setze einfach ein Passwort auf deinen Account(Systemsteuerung->Benutzerkonto). Und wenn vom Rechner weg gehst, drück einfach Windowstaste und L, dadurch kommst zur Passwort Eingabe. Alternativ auch durch "Benutzer wechseln", über den START-Button.

[Popov]

a.) es ist ein altes Juxprogramm. Also nicht alles sofort ernst nehmen, sondern zuerst Aussage auf Logik prüfen.

b.) aber selbst wenn, man muss erst wissen, das es ein Programm ist.

c.) zum Beenden braucht man keinen Taskmanager.

d.) Schutz? Geht einfach. Eigenes Konto anlegen, Passwort vergeben, u. e. m. Dann, je nach Einstellung STRG-ALT-ENTF oder WIN-L.

e.) Aber um was geht es hier im Thread? Wie der Bruder dennoch über den Taskmanager dran kommt?

Hoffentlich meldet sich jetzt keiner, der eine meinte eine Methode zu kennen wie man dennoch an die Daten ran kann. Dann kriege ich die Krise.