Wie verbindet man in Free Pascal eine Taste mit einem Button?

Ich möchte gerne in einem Programm die Enter- Taste mit einem Button verbinden, finde aber nichts übersichtliches, was das erklärt ...

naaman

03.10.2024, 19:39

Warum?

KrawumXD

Beitragsersteller

03.10.2024, 19:40

Weil es mich interessiert und ich wissen möchte, was für Möglichkeiten man mit Pascal hat ...

naaman

03.10.2024, 19:42

Ich meine, warum muss es die ENTER-Taste sein, die eine Aktion auslösen soll.

KrawumXD

Beitragsersteller

03.10.2024, 19:47

Wir haben in der Schule ein vereinfachtes Taschenrechner-Programm geschrieben, wo es für mich gewohnheitstechnisch besser ist Enter zu drücken, da ich es vom normalen Rechner kenne

naaman

03.10.2024, 19:49

Alles klar, ich teste das Mal. Melde mich gleich wieder.

KrawumXD

Beitragsersteller

03.10.2024, 19:49

klar Danke für die Mühe :)

KarlRanseierIII

03.10.2024, 20:01

Ergänze die Frage doch bitte um die Basisinformationen, welches GUI-Tollkit+Binding findet Verwendung.

KrawumXD

Beitragsersteller

03.10.2024, 20:23

Weiß nicht, wir haben die Lazarus Umgebung genutzt, falls du das meinst, ansonsten wüste ich nichts genaueres, da das ganze noch ziemliches Neuland für mich ist ...

2 Antworten

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Programmiersprache, Programmieren & Softwareentwicklung

03.10.2024, 20:27

Ordne der Komponente, welche auf den Tastendruck reagieren soll, einfach einen Handler für das OnKeyPress-Event zu.

Innerhalb der Lazarus IDE brauchst du dafür lediglich die Komponenten selektieren und im Tab Ereignisse des Objektinspektors zweimal in das leere Feld, rechts neben OnKeyPress klicken. Im Quelltexteditor wird daraufhin eine neue Prozedur erstellt, die an das Event gebunden wird. In dieser Prozedur kannst du nun mit Hilfe einer Verzweigung die passende Taste herausfiltern.

if Ord(Key) = VK_RETURN then
begin
  // do something ...
end;

In der Unit musst du noch den LCLType unter uses mit auflisten, damit die Konstante VK_RETURN bekannt ist. Andernfalls kannst du Key ebenso mit #13 vergleichen.

naaman

03.10.2024, 20:23

Also:

1) Du brauchst ein neues Projekt mit einem LABEL.

2) Du klickst auf die FORM

3) Im Objektinspektor schaltest du KEYPREVIEW auf TRUE

4) Dann gehst du auf EREIGNISSE und klickst bei ONKEYPRESS doppelt

5) in der Prozedur schreibst diesen Code:

If key=#13 then Label1.Caption:='TEST';

6) starte die App und mit Druck auf ENTER erschein 'TEST' im Label.

KrawumXD

Beitragsersteller

03.10.2024, 20:27

Vielen Dank :) und Danke für die Mühe ...

Ähnliche Beiträge

Was war das erste Programm, das du gecodet hast?

Ich habe Delphi IDE von Borland missbraucht und mit Hilfe eines Texteditors, Timers und Button einen Pascal Interpreter geschrieben.

Timer war als Verzögerung gedacht, weil die beiden Befehle Compilieren und Speichern nicht gleichzeitig nach Buttonclick ablaufen mussten.

Das war ca. im Jahr 98.

...zum Beitrag

Android App mit Lazarus programmieren

Hey ihr,

Wisst ihr wie ich mit dem Free-Pascal Programm Lazarus Apps für Android oder iOS programmieren kann? Ich brauche ein Plugin oder einen Compiler, was weiß ich :D Ist das überhaupt möglich?

Bitte keine Grundsatz Diskussionen über Pascal/Java... Ich kann halt nur Pascal programmieren!

...zum Beitrag

Wie programmiere ich die folgende Aufgabe in Lazarus mit der Programmiersprache: Pascal(Script)?

Aufgabe 2 – Schaumzerfall

Der Schaum in einem Bierglas zerfällt pro Minute um 15%.

a) Entwickle ein Programm, das für eine anfängliche Schaumhöhe von 13 cm die Zeit berechnet, nach der sich der Schaum auf 1 cm der Ausgangshöhe reduziert hat. Dabei soll für jede Minute die Ausgabe der verbleibenden Schaumhöhe ausgegeben werden.

b) Erweitere das Programm um die Eingabe der Variablen n, so dass die Zeit gemessen wird, bis sich der Schaum auf n cm reduziert hat. Zugleich soll die Schaumhöhe auch als Variable eingelesen werden können.

Dabei soll mit Editfeldern sowie einem Button und einem Label programmiert werden. Die Datentypen sind entweder: String ,Double oder Integer.

Vielen Dank schonmal im Voraus😁

...zum Beitrag

Zwei Delphi Formulare verbinden

Hallo,

Ich habe eine Frage bzgl. wie man zwei Delphi Formulare/Unit miteinander verbindet. Als Compiler verwende ich Lazarus.

Mein Problem ist aber nicht das eigentliche Einbinden, ich habe einfach Unit2 in der Uses-Klausel hinzugefügt und das hat eigentlich auch funktioniert, ich konnte also mit einem Button über Form2.Show dieses anzeigen lassen. Ich brauche in meinem Programm aber auch so etwas wie einen Home-Button. Also wieder Form1.Show, habe ich gedacht, hat aber nicht funktioniert. Was genau mache ich falsch. ich habe auch Unit1 in die Uses Klausel eingefügt, hat jedoch nichts verändert.

Ich hoffe, hier kann mir das jemand erklären, für mich ist es nämlich komplett unverständlich...

Danke schonmal im Vorraus!!!

Lg.

...zum Beitrag

Fehler bei Arduino-Programm (Arduino Uno)?

Mein Programm sollte eigentlich so funktionieren, dass beim drücken der einen Taste auf einer Fernbedienung der motorPin auf high gesetzt wird und der Motor sich eben dreht und bei einer anderen Taste der wieder aufhört. Die Tasten erkannt und sonst funktioniert auch alles, bis ich die Taste zum Einschalten vom Pin drücke. Der Pin schaltet sich auch an, aber danach wird im Serial Monitor nur noch

IR code:0x0
 other button

angezeigt, ohne, dass überhaupt irgendwas gedrückt wird und der Pin lässt sich auch nicht mehr ausschalten. Wie fixe ich das?

das ist der Code:



#include "IRremote.h"

int receiver = 11; 
int motorPin = 6; 

IRrecv irrecv(receiver);   
uint32_t last_decodedRawData = 0;

void translateIR() 
{  
  if (irrecv.decodedIRData.flags)
  {
    irrecv.decodedIRData.decodedRawData = last_decodedRawData;
    Serial.println("REPEAT!");
  } else
  {
    Serial.print("IR code:0x");
    Serial.println(irrecv.decodedIRData.decodedRawData, HEX);
  }
 
  switch (irrecv.decodedIRData.decodedRawData)
  {
    case 0xF807FF00: digitalWrite(6, HIGH);    break;
    case 0xF609FF00: digitalWrite(6, LOW);    break;

    default:
      Serial.println(" other button   ");
  }
  last_decodedRawData = irrecv.decodedIRData.decodedRawData;
  delay(500);
}


void setup() 
{
  Serial.begin(9600);
  Serial.println("IR Receiver Button Decode");
  irrecv.enableIRIn();
  pinMode(6, OUTPUT); 


}


void loop()  
{
  if (irrecv.decode()) 
  {
    translateIR();
    irrecv.resume();
  }
}

...zum Beitrag

Tastatur - 2 Tasten verbinden?

Ich habe mir eine günstige Gaming Tastatur gekauft, aber nicht auf das Layout geachtet. Die Enter-Taste ist nur halbe höhe. Ich würde sie gerne mit der darüber liegenden verbinden, da ich immer beide treffe, weiß aber nicht wie.

Das ganze sieht so aus:

Hat jemand eine Idee?

...zum Beitrag

Windows Forms C# mit Python verbinden?

Hallo,

ich habe mit Windows Forms in C# ein kleines ERP-Programm erstellt. In der Auftragsverwaltung meines ERP-Programms habe ich im DataGridView die Buttons "Rechnung erstellen" und "Angebot erstellen" für jeden erstellten Auftrag generiert. Wenn ich auf den Button "Rechnung erstellen" klicke, soll sich eine Rechnung generieren, die sich automatisch mit den Daten aus dem Programm oder der Datenbank (je nachdem, was einfacher ist) füllt und abspeichert. Dazu habe ich ein Python-Rechnungsprogramm erstellt, da dies sehr einfach war. Leider gelingt es mir jedoch nicht, diese Funktionen miteinander zu koppeln. Könnt ihr mir dort behilflich sein, oder gibt es eine einfache Funktion zur Rechnungserstellung in Windows Forms selbst?

Die Rechnung in Python sieht sehr professionell aus, deswegen würde ich sie gerne beibehalten. Wenn es jemanden interessiert, hier ist mein C#-Code (für die Auftragsverwaltung) und der Python-Code;

Auftragsverwaltung : Auftragsverwaltung - Pastebin.com

Rechnung : Rechnung - Pastebin.com

...zum Beitrag

Excel Button mit Enter bestätigen?

Hallo habe folgendes Problem. Habe ein Excel Sheet indem man durch einen Commandbutton die Zahl in Zelle A1 bzw. A2 in eine Liste überträgt.

Hätte gerne dass nach Eingabe in Zelle A1 automatisch der Button aktiviert wird und ich diesen mit der Enter Taste bestätigen kann. Danach soll die Auswahl in Zelle A2 springen und danach soll der Button hinter A2 ausgewählt werden sodass ich diesen wieder mit Enter bestätigen kann.

Bisher springt die Auswahl immer nach A1 in A2 und die Buttons müssen mit der Maus bestätigt werden.

Kann mir jemand helfen?

Danke!

...zum Beitrag

Java - tastatur abfangen?

Ich möchte in einen java Konsolen Programm die Tastatur abfangen... ich weis wie man mit dem scanner die tatur einleesen kann bis man enter drückt.. ich möchte aber das man eine bestimmte taste drückt und das programm geht weiter, ohne das man enter drücken muss ....

...zum Beitrag

C# Button mit Enter auslösen ausschalten?

Hey :) Ich schreibe mir grad ein Programm mit Visual Studio 2015 (C#) und wollte wissen wie man es ausschalten kann das buttons die man angeklickt hat mit enter nochmal ausgelöst werden. Also wenn ich auf einen button klicke und dann enter drücke soll garnichts passieren. Danke im voraus :)

...zum Beitrag

Batchdatei leerzeichen senden?

Hallo zusammen,

ich erstelle gerade eine Batch Datei, welche auf MySQL im Localhost verbinden soll.

cd C:\xampp\mysql\bin
mysql -u root -p -h 127.0.0.1
ws.SendKeys "{ENTER}"
show databases;

Wenn ich das Script ausführe, bleibt es beim Passwort stehen, dort muss ich eigentlich nur einmal die Enter Taste drücken, da ich kein Passwort gesetzt habe.

Wie lautet der Befehl in einer Batch Datei, um einmal die Enter Taste zu drücken?

...zum Beitrag

Data Scraping: Wieso wird keine Auslastung angegeben?

Hi,

mein Fitnessstudio hat auf seiner Webseite einen Zähler, wie viele freie Plätze es gibt. ich wollte mir diese "scrapen" und einen Graph erstellen, sodass ich weiß, wann am wenigsten los ist.

Ich habe folgenden Code geschrieben:

from bs4 import BeautifulSoup
import requests
import pandas as pd
import time

url = "https://www.jumpers-fitness.com/studios/augsburg-haunstetten"
try:
  while True:
    response = requests.get(url)
    soup = BeautifulSoup(response.content, "html.parser")
    auslastung_element = soup.find("span", class_="js-free-spots")

    if auslastung_element is None:
      print("Das Auslastungselement wurde nicht gefunden.")
    else:
      auslastung = auslastung_element.text.strip()
print(auslastung)
      timestamp = pd.Timestamp.now()
      data = pd.DataFrame({"Timestamp": [timestamp], "Auslastung": [auslastung]})
      data.to_csv("auslastung.csv", mode="a", index=False, header=False)

    time.sleep(60) # 1 Stunde = 3600 Sekunden
except Exception as e:
  print("Fehler aufgetreten:", e)
  input("Drücke Enter, um das Programm zu beenden.")

Dieser funktioniert aber nicht und gibt keine Auslastung an.

Kann mir jemand helfen?

Danke

...zum Beitrag

Java robot enter funktioniert nicht?

Ich habe ein Programm geschrieben das eine Taste drückt.

robot.keyPress(75);

75 = k

robot.keyPress(13);

13 = Enter

Bei der 75 funktioniert alles aber bei 13 also enter kommt immer eine Fehler meldung hat einer eine ahnung wo dran das liegt?

...zum Beitrag

C#: "Automatisch Enter" nach Eingabe einer Taste?

Hallo!

Wenn man in C# ReadLine() aus der Klasse Console verwendet, kann ja ein String eingelesen werden, und nach der Eingabe muss ja <Enter> gedrückt werden, dann wird das Programm fortgeführt.

Gibt es eine Einlesemöglichkeit, wenn ich eine Taste kurz drücke, dass das Programm sofort fortfährt (also dass nach der Eingabe eines Characters "automatisch Enter gedrückt wird")

Hoffe ihr versteht, was ich meine,

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen