| Autor |
Beitrag |
chickenfigt1989
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 21:54
Hallo
Wollt ein kleines Programm machen wo zwei bilder drauf sind und in einen bild sind 5 fehler.
Soweit so gut.
Dachte mir ich versteck einfach hinter jeden fehler ein kleines Panel das unsichtbar ist, und wen man auf den fehler klickt wird das onklick ereignis von panel ausgelöst das ein weiteres image das rote kreuz zum fehler markieren erscheint.
Nur klappt das nciht so
wie mach ich das am besten?
lg
|
|
Marc.
      
Beiträge: 1876
Erhaltene Danke: 129
Win 8.1, Xubuntu 15.10
|
Verfasst: Sa 09.07.11 22:00
Wofür der Workaround mit Panels? Du kennst doch bereits die Koordinaten und kannst diese mit der Position der Maus beim OnClick vergleichen, wobei ein gewisser Toleranzwert zulässig sein sollte.
Deine Fehler sind dann beispielsweise entsprechende Objekte mit den Eigenschaften "Position" und "Found".
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 22:32
hmm hört sich logisch an aber wie komm ich an die koordinaten 
|
|
Gausi
      
Beiträge: 8553
Erhaltene Danke: 479
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Sa 09.07.11 22:38
Nimm das OnMouseDown-Event anstelle von OnClick. Da bekommt man die Koordinaten als Parameter mitgeliefert. 
_________________ We are, we were and will not be.
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 22:57
Ja aber wie und wo soll ich des jetzt machen?
steh grad voll aufm schlauch
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 23:23
Hier mit dem kann ich die koordinaten des Bildes auslesen
Caption := Format('X %d Y %d', [X, Y]);
aber wie vergleich ich das nun?
|
|
glotzer
      
Beiträge: 393
Erhaltene Danke: 49
Win 7
Lazarus
|
Verfasst: Sa 09.07.11 23:26
_________________ ja, ich schreibe grundsätzlich alles klein und meine rechtschreibfehler sind absicht
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 23:43
wie kann ich das onklick ereignis bei einer bestimmten koordinate auslösen?
|
|
FinnO
      
Beiträge: 1331
Erhaltene Danke: 123
Mac OSX, Arch
TypeScript (Webstorm), Kotlin, Clojure (IDEA), Golang (VSCode)
|
Verfasst: Sa 09.07.11 23:47
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 23:50
Habt ihr vllt für mich nen beispielcode?
|
|
BenBE
      
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 09.07.11 23:52
Delphi-Quelltext 1: 2: 3: 4:
| Procedure TGuttenbergForm.CopiedCodeMouseUp(Sender: TObject; X,Y: Integer); begin Copy(Code, X, Y); end; |
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
Für diesen Beitrag haben gedankt: platzwart
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: Sa 09.07.11 23:59
sehr witzig
kann mir jemand helfen bitte?
|
|
BenBE
      
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: So 10.07.11 00:03
Was verstehst Du an den Antworten der andern denn nicht?
Und NEIN, es wird hier KEINEN Source geben 
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
Für diesen Beitrag haben gedankt: DonManfred
|
|
chickenfigt1989 
      
Beiträge: 444
Erhaltene Danke: 2
|
Verfasst: So 10.07.11 00:22
Ich check einfach nicht wie ich die überprüfung amchen soll also wie soll cih das vergleichen
etwa so
if x:=100 and
y:=100 then
begin
Showmessage('Richtig');
end;
?
|
|
j.klugmann
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 10.07.11 00:28
Du hast jetzt verschiedene Möglichkeiten:
* Trotz aller Anstrengungen mal eines dieser Seiten wie Google aufzusuchen oder gar die Foren-Suche zu benutzen.
* In die Delphi-Doku gucken.
* Es sein lassen.
Für diesen Beitrag haben gedankt: DonManfred
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 10.07.11 00:30
Warum probierst du es nicht einfach aus? Kleiner Tipp:
Delphi-Quelltext 1: 2:
| if (x>90) and (x<110) then |
sonst muss man den Punkt genau treffen und das wäre ziemlich schwer.
|
|
Delphi-Laie
      
Beiträge: 1600
Erhaltene Danke: 232
Delphi 2 - RAD-Studio 10.1 Berlin
|
Verfasst: So 10.07.11 16:30
chickenfigt1989 hat folgendes geschrieben : | Ich check einfach nicht wie ich die überprüfung amchen soll also wie soll cih das vergleichen
etwa so
if x:=100 and
y:=100 then
begin
Showmessage('Richtig');
end;
? |
Mir ist völlig schleierhaft, wie jemand, der schon über ein Jahr mit von der Delphipartie ist und zudem nahezu 400 Beiträge hier hineinsetzte, solch brachiale Anfängerfehler begehen kann.
Für diesen Beitrag haben gedankt: BenBE, DonManfred, jasocul
|
|