MESSAGEBOX

[speedax]

hey leute,

ich möchte bei nem telefonbuch ne messagebox haben, dort ein paar buttons draufpacken und die auch nochn ausgabewert generieren lassen habe ma gelesen das das geht, aber die delphi hilfe klärt mich ncih wirklich auf... habt ihr ahnung davion?

[DeddyH]

Kannst Du Dich mal etwas genauer ausdrücken? :gruebel:

[Bernhard Geyer]

Klar doch.
Und deine Frage legt nahe das du erst mal einen Grundkurs in Delphi Lernen machst.

[speedax]

ey leute das schon bissl fies ne :P


ich bin info lk schon seit 2 jahren kann neue klassen erstellen und weiß was polymorphie ist aber ich habe noch nie mit ner messagebox gearbeitet daher meine frage wie man die benutzt ich wollte nen wert inner function / oder ne procedure ma sehn was besser ist aber meine erste frage war einfach wie sieht die grundansprechung der message box dann aus?

[DeddyH]

MessageBox ist eine Funktion, wo liegt das Problem?

[speedax]

ja klar ne function aber i mag halt wissen also warte

so sieht es aus:

ich habn telefonbuch schön mit ner listbox gemacht und nu möchte ich ne messagebox nutzen um eingegebene gespeicherte datensätze zu löschen quasi ich klicke auf lösche...messagebox öffnet sich...fragt was gelöscht werden soll und tuts auch ... das suchen nach dem datensatz is kein ding, genau wie das löschen aber ich meine halt wie mach ich das mit der messagebox

[mirage228]

Delphi-Quellcode:

if Application.MessageBox('Löschen?', 'Test', MB_YESNO or MB_ICONQUESTION) = IDYES then
  Loeschen;

[DeddyH]

Ich weiß zwar nicht, was eine MessageBox mit dem Löschen aus einer Listbox zu tun hat, aber vielleicht meinst Du ja so etwas:

Delphi-Quellcode:

if MessageBox(Handle,'Eintrag löschen?','Bestätigen',MB_YESNO or MB_ICONQUESTION) = idYes then
  //Eintrag löschen

[edit] Jetzt hast Du sogar 2 Varianten: TApplication und Windows ;) [/edit]

[speedax]

ahh na das sieht shcon besser aus... danke das war meine frage eigentlich weil nihc wusste wieich die buttons hinpacke und wie die buttons angesprochen werden da meine delphihilfe datei beshcädigt scheint... und da bekommt man nur ein hinweis auf delphi lernen -.-

[DeddyH]

Hilfe gibt es auch hier: http://ref.dp200x.de/

[speedax]

ui krass danke dir;)

[DeddyH]

Ui, endlich mal die Buchstaben in der richtigen Reihenfolge :zwinker:

[Bernhard Geyer]

Zitat:

Zitat von speedax

... da meine delphihilfe datei beshcädigt scheint... und da bekommt man nur ein hinweis auf delphi lernen -.-

Auf einmal ist sie beschädigt? Dein erster Post deutet darauf hin das du damit nicht zurecht kommst.

Falls du älteres Delphi (D7 oder älter) und Vista oder Win7 hast ist das nach MS "As Designed". Die unterstützung für das alte Hilfeformat muss erst nachinstalliert sein. Bei D8/2005 könnte es ziemliche Probleme mit der von Borland gelieferten Installatin zu tun haben.

Ach ja: Gewöhn dir mal an halbwegs die Rechtschreibund mit Groß-/Kleinschreibung zu lesen. Selbst für mich als Franke ist das nicht leicht :-) Bei solchen schlecht zu lesenden Posts hat man keine groß Lust überhaupt oder ausführlich zu Antworten.

[Luckie]

Zwei sachen:
Lies dir bitte das noch mal durch

Zitat:

Zitat von speedax

ahh na das sieht shcon besser aus... danke das war meine frage eigentlich weil nihc wusste wieich die buttons hinpacke und wie die buttons angesprochen werden da meine delphihilfe datei beshcädigt scheint... und da bekommt man nur ein hinweis auf delphi lernen -.-

und sag mir, was du von der Rechtschreibung hältst. Wir bemühen uns und versuchen hier zu helfen, dafür verlangen wir aber auch ein Mindestnmß an Sorgfalt bei der Erstellung von Beiträgen, denn du erwartest ja wahrscheinlich auch von uns, dass wir uns bemühen verständlich zu antworten.
Und zweites gib deinen beitragen aussagekräftige Titel, die das Problem beschreiben. Ein dahin geschmissener Begriff tut dies nicht.

[Änabanäna]

Guten Tag,
ich brauch dringend Hilfe zur MessageBox! Und zwar hab ich versucht, dass sich eine MessageBox öffnet, wenn man den richtigen Namen in ein edit-Feld schreibt und anschließend auf einen Button klickt.
Eine MessageBox hab ich schon und die funktioniert auch, nur bei der anderen funktioniert das nicht.
Hier mein Quelltext:

Code:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
if edt_ergebnis.Text ='' then exit;
begin
Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
exit;
end;
begin
if edt_name.Text ='Heidi' then exit;
begin
Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
exit;
end;

Bei der letzten MessageBox passiert gar nichts.

Vorweg, ich hab keine Ahnung von Delphi und muss das für die Schule machen!
Schon mal Danke im Vorraus :)

[DeddyH]

Schau einmal in die Hilfe, was exit macht.

P.S.: Willkommen in der DP :dp:

[Jumpy]

Es sieht auch nach ein bißchen viel Begin und End aus,...

[sHoXx]

Zitat:

Zitat von Jumpy (Beitrag 1098860)

Es sieht auch nach ein bißchen viel Begin und End aus,...

net nur en bisschen

[EDIT]

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
  end else
  begin
    if edt_name.Text ='Heidi' then 
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
    end;
  end;
end;

aber so schauts schon besser aus
net optimal aber besser
hab jetz auch erstmal feirabend also bis denn

[DeddyH]

Stimmt, aber die stören den Ablauf nicht ;)

[sHoXx]

Zitat:

Zitat von DeddyH (Beitrag 1098864)

Stimmt, aber die stören den Ablauf nicht ;)

aber mich..irgendwie :D

[Bernhard Geyer]

Zitat:

Zitat von DeddyH (Beitrag 1098864)

Stimmt, aber die stören den Ablauf nicht ;)

Doch. Evtl. macht ja wegen dem exit die Funktion nicht das was sie soll

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
  else if edt_name.Text ='Heidi' then
    Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
end;

[Änabanäna]

Vielen Dank schon mal für die schnelle Hilfe.

Also den Quelltext hab ich schon mal ersetzt. Nur jetzt kommt immernoch nicht die Messagebox, dass Heidi mit Peter zusammen passt. Wenn ich nun irgendetwas in das erste edit-Feld eingebe, dann kommt die MessageBox 'Eingabe ungültig' und die soll eigentlich bei dem zweiten edit-Feld kommen.
Ehrlich gesagt, bin ich mir auch gar nicht so sicher, ob dieser Teil richtig ist

Code:

if edt_name.Text ='Heidi' then

Ist das richtig? Denn ich möchte ja, dass wenn man Heidi in das erste edit-Feld eingibt die MessageBox kommt ' Du passt am besten mit Peter zusammen'

[alfold]

Hat doch @Bernhard Geyer geschrieben in #21 wie es geht! Schau dir sein Code an!

Gruss alfold

[himitsu]

Statt einer MessageBox würde ich Anfängern eher den MessageDlg empfehlen.

Denn Application.MessageBox ist fast eine direkte Schnittstelle zu MessageBox (WinAPI),
wärend [OH][MessageDlg[/OH] einen VCL-eigenen Dialog darstellt und somit auch mehr anderen Delphi-Funktionen ähnelt.

[p80286]

Ich hab so leise Zweifel ob das überhaupt läuft:

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then exit;
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
    exit;
  end;
  begin
    if edt_name.Text ='Heidi' then exit;
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
      exit;
end;

Und in Welchem TEdit.Text soll was stehen damit Dein Programm richtig reagiert?

Gruß
K-H

[alfold]

Was soll den diese ewige EXIT

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then exit;//<--- weg damit
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
    exit;//<--weg damit
  end;
  begin//<--weg damit
    if edt_name.Text ='Heidi' then exit;//<--weg damit
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
      exit;//<--weg damit
    end;
end;

[DeddyH]

So, nochmal das Ganze. Da wir Dein Projekt ja nicht kennen rate ich mal:

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_name.Text = '' then
    Application.MessageBox('Eingabe ungültig', 'Achtung!', MB_OK)
  else if edt_name.Text = 'Heidi' then
    Application.MessageBox('Du passt am besten mit Peter zusammen', 'Glückwunsch', MB_OK);
end;

Vermutlich soll ja in beiden Fällen das Edit für den Namen ausgewertet werden, oder etwa nicht?