Wert übergeben

[XXcD]

Hallo,
ich arbeite jetzt seit ein paar tagen mit Delphi und wollte mal fragen wie ich einen button einen Wert eintragen kann und den Wert an einer anderen stelle wieder abrufen kann.

[HalloDu]

Wo willst du den Wert eintragen? In der Beschriftung?
Wenn ja dann geht das über die Eigenschaft Caption:

Delphi-Quellcode:

Button1.Caption := '123'; //Auf Button1 steht jetzt 123 
ShowMessage(Button1.Caption); //Jetzt wird das was auf dem Button steht in einer Dialogbox ausgegeben

Hoffe ich habe geholfen

[mkinzler]

Meinst du die Beschriftung des Buttons? Ich verstehe deine Frage irgendwie nicht ganz.

[XXcD]

warte mal bitte kurz ich stell mal kurz ein bild rein damit das besser zu verstehen ist

[XXcD]

Hier ist kurz nen bild davon
http://[e-mail]/Neu Bitmap.bmp

[HalloDu]

Wenn du meinst ob ein Button gedrückt ist dann geht das über die Eigenschaft Checked.

[mkinzler]

Du meinst ne RadioBox/-group.
Übrigens du kannst das Bild auch direkt an den Beitrag anhängen.

[XXcD]

ja schon möglich ich wollte das jetzt aber so machen da ich nicht viel ahnung von delphi habe ich arbeite da erst seit sonntag mit.

[mkinzler]

Du legst ne TRadioGroup auf deine Form, darauf plazierst du die TRadioButtons. Nur eine davon kann nun markiert sein.
So habe zumindest das Bild gedeutet.

[XXcD]

Also ich hab die enzeln gemacht da kann man aber auch nur einen auswählen und wollte jetzt jedem einen einzelnen wert geben so wie C:\ D:\ usw. und dann hier übergeben :

Zitat:

procedure TForm1.Image4Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open',
PChar('*** Hier soll der Wert rein****Programme\World of Warcraft\WoW.exe'), nil, nil,
SW_ShowNormal);
end;

ich ich wollte nur mal sagen sry wenn ich mich so schei... ausdrücke.

[mkinzler]

Die Beschriftung setzt man wie schon geschrieben mit .Caption

[XXcD]

nein ich meine der soll ja auch wissen dass wenn man das auswählt dass das auch C:\ oder D:\ ist und das in dieser shellexcute funktion abrufen

[inherited]

Nimm dafür lieber eine ComboBox.
Sieht dann ca. so aus
[delphi]
procedure TForm1.Image4Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open',PChar(ComboBox1.Text+'Programme\World ofWarcraft\WoW.exe'), nil, nil,SW_ShowNormal);
end;

[XXcD]

danke das hat mir weitergeholfen das werde ich gleich mal ausprobieren

[XXcD]

IWe kann ich denn in die combo box mehrere sachen eintragen?

[mkinzler]

Ne Combobox hat ne Liste (.Items)

[XXcD]

weiß denn eine eine bestimmte minuten zahl zu warten??? Und danach das Programm erst weitergeht.

[HalloDu]

Bei sleep(Zeit die es Wartet in Millisekunden); wird das ganze Programm gestoppt, aber leider auch nicht neu gezeichnet.

Hoffe es hilft. :)

[inherited]

Delay ;)
Das Sleep ohne Sleep^^

[HalloDu]

Gut sollte ich auch mal benutzten, dann zeichnete er denke ich auch neu.

Vlt. etwas praktischer. :mrgreen:

[XXcD]

Also einfach nur: sleep(80000 oder so) und fertig???

[HalloDu]

Wie inherited gerade gesagt hat ist Delay besser. Weil dann das Programm auch neugezeichnet wird, wie ich gesagt habe, aber sonst grundsätzlich richtig. :mrgreen:

[hoika]

Hallo,

entweder im Object-Inspector unter Items
oder direkt (z.B. in FormActive)

ComboBox.Items.Add('c:\');
ComboBox.Items.Add('d:\');

Heiko

[XXcD]

Also mit dem Delay das hab ich jetzt mal Probiert da ich aber sogut wie null ahnung von Delphi habe weiß ich jetzt nicht genau wie ich das einbinden soll.

[HalloDu]

Du musst es unter Type schreiben, z.B.:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure delay(msec:longint);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Und den Code unter implementation z.B.

Delphi-Quellcode:

implementation

procedure TForm1.delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

[XXcD]

Joa danke ich probiere das mal kurz

[XXcD]

Jetzt muss ich das Delay ja noch an der stelle einfügen wo ich das haben will z.b. hier:

Zitat:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
i:=0;
REPEAT

begin i++
ShellExecute(Application.Handle, 'open',
PChar('http://wowgarnasus.web-4-free.com'), nil, nil,


SW_ShowNormal);
*** Hier soll das Programm warten****
end; UNTIL i=4
end;

[mkinzler]

Dann füge es doch da ein.
i++ muß

Delphi-Quellcode:

inc(i);

heißen
begin..end -Block bei Repeat..Until kannst du weglassen

[XXcD]

Ich meine jetzt das von HalloDu mit dem Delay wie bekomme ich das in den Teil rein mit dem repeat ist damit das Programm nach den 30 minuten oder so wieder nach oben springt.

[mkinzler]

Einfach duch Aufruf von

Delphi-Quellcode:

delay( 30 * 60 *100);

[HalloDu]

Einfach Delay(30000) for das until, dann führt er den Code im Repaet aus, wartet 30s, überprüft die Abbruchbedingung und springt nach oben bis I 4 erreicht hat.

[inherited]

@HalloDu: eigene Proceduren und Fuktionen vereinbart man normalerweise im private oder public-teil der Klasse.
@XXcD: Es gibt einen button, der etwa so aussieht:
http://www.delphipraxis.net/template.../icon_edit.gif
Doppelposts sind hier nicht gerne gesehen ;)
Ach ja: Benutze doch für Delphi-Code nicht die Zitat-Tags, sondern die für diesen Zweck vorgesehenen Delphi-Tags(

Code:

[delphi][/delphi]

[Khabarakh]

Zitat:

Zitat von inherited

@HalloDu: eigene Proceduren und Fuktionen vereinbart man normalerweise im private oder public-teil der Klasse.

Was hat denn bitte eine Funktion wie Delay in der Formklasse zu tun :gruebel: ?

[inherited]

Das kommt noch erschwerend hinzu^^