Button 'halten'

Marco D. · Verfasst: Di 28.06.05 20:39

In meinem App kann der user auf nen buton klicken und eine omage komponente vergrößert sich dabei. Da man aber um sie richtig groß zu kriegen (das größerwerden soll unbedingt in schritten undn icht auf einmal erfolgen, weil der user ja bestimmen soll wie groß sie ist) viele mal klicken muss, würde ich gerne wissen wollen, ob es irgendwie möglich ist, dass man nur einmal klicken und dann die maustaste halten kann und das bild sich dann allmäglich vergrößert. Praktisch soll beim halten der maustaste die onclick-procedure des buttons wiederholt werden, solange bis die maustaste wieder losgelassen wird. Habt ihr kapiert was ich meine? wenn nicht, macht nichts sehr schwer zu erklären. Fragt notfalls nochmal nach!

Koller

Narses · Verfasst: Di 28.06.05 20:56

Moin!

Wie wäre es mit einem TrackBar?

cu
Narses

sango · Beiträge: 236 WinXP Home Delphi 2005 Pro

rein mal so als denkansatz:
du hast den button solang der gedrückt wird, soll das ja vergrössert werden.
entwerder du lässt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

while button.pressed begin
{kenn die genauen befehle jetzt nicht, deswegen pseudobefehle}
bild.groesser;
sleep(1);
end;

oder du realisierst es mit nem timer.
bzw schau mal nach obs der Sender true bleibt solang du draufklickst.

kenn keine antwort aber hoffentlich ists nen schubs in die richtige richtung.

Marco D. · Verfasst: Mi 29.06.05 08:33 Titel: Halten

Eine trackbar geht aus dem grunde nicht, weil ich nicht vorausahnen kann wie groß das image werden soll. Ich progge unter einer auflösung von 1280*1024 und der endanwender hat sicher nicht sone große auflösung deshablb bevorzuge ich den Button.

In welchem Bezug steht eigentlich die on mouse down procedure des buttons zu meinem Thema?

JRegier · Verfasst: Mi 29.06.05 08:39 Titel: Re: Halten

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure BtnOnMouseDown(..);
begin
  Image.Width := Image.Width+5;
  Image.Height := Image.Height+5; 
  Timer.Enabled := True;
end;

procedure BtnOnMouseUp(..);
begin
  Timer.Enabled := False;
end;

procedure OnTimer(..);
begin
  Image.Width := Image.Width+5;
  Image.Height := Image.Height+5;
end;

Tilman · Verfasst: Mi 29.06.05 11:12

Und weils so schön ist hab ich jetzt mal ne komponente geschrieben die das macht.
(komponente--> komponente installieren-->in vorhandenes package und dann die pressbut.pas auswählen und am besten in dclusr.dpk... dann noch installieren und compilieren klicken... package-fenster schließen und speichern "ja", und fertig ist die schoße. sieht aus wie TButton, funzt wie TButton... hat aber als Event zusätzlich OnPressed..

Einloggen, um Attachments anzusehen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme