onMouseMove + Memo

tkpunish · Hält's aus hier Beiträge: 6

huhu.
Ich möchte, wenn ich mitm Curser über nen RadioButton gehe, dass in ner Memo dann n InfoText erscheint...
Leider erscheint dieser Text mehrfach, je mehr ich die Maus drüber bewege, desto öfters...
Wie kann ich das umgehen?
Habe es schon mit Enter und Leave versucht, aber da klappte es nur, wenn ich klicke... Das wollte ich eigentlich verhindern.
Gibt es ne andere Lösung?

Ehemaliges Mitglied Erhaltene Danke: 1

Verstehe nicht, wo das Problem liegt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.RadioButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
memo1.Text:='Bewegung!';
end;

tkpunish · Hält's aus hier Beiträge: 6

erschiess mich ^^
habe es mit lines.add versucht..
bin nochn bischen durcheinander, war grad auf beerdigung, sorry...
muss grad nen erw. savedialog fürn kunden fertig machn..

wie bekomm ich denn den alten text wieder, ohne widerum auf die maus zu klicken?
habe ihn zwischengespeichert aber sobald ich den radiobutton "verlasse" passiert nix

Ehemaliges Mitglied Erhaltene Danke: 1

puhh, da musste die Profis hier fragen. Das weiß ich selbst nicht.
Als Ansatz würde ich bei jedem MouseMove-Event der Form(!) abfragen, ob die hinterlassenen Koordinaten auf einem Steuerelement liegen und wenn ja, dass dann die Informationen dazu angezeigt werden. Ich glaube über das MouseMove-Event eines einzelnen Steuerelements kommst du da nicht weiter.

iGoA · Beiträge: 103 Alle Win´s D5 Prof

Das verlassen kannst Du am einfachsten durch das OnMouseMove des darunterliegenden Objektes realisieren. Beispiel: Dein Radiobutton liegt auf nem Panel, dann machst Du bei Panel1MouseMove das was Du beim Verlassen des Radiobuttons machen möchtest.

_________________
"Diner for One" objektorientiert:
"The same method as last year, Ms. Sophie?" (was für´n Schwachsinn)

Ehemaliges Mitglied Erhaltene Danke: 1

hmm stimmt...

markieren

Delphi-Quelltext

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:

const
  RadioBeschreibung ='Die Beschreibung des RadioButtons';
  MemoText = 'Dieser Text steht hier normalerweise';

var
 IstAufRadio:boolean;

...

procedure TForm1.RadioButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 If not IstAufRadio then
 begin
   Memo1.Text:=RadioBeschreibung;
   IstAufRadio := true;
 end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Memo1.Text := Memotext;
 IstAufRadio := false;
end;

tkpunish · Hält's aus hier Beiträge: 6

super, der boolean hat mir ziemlich weitergeholfen.. habe es vorher schon versucht, allerdings ohne ihn...
bisher klappt alles soweit =)
bin fast fertig

danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme