Messageboxcreator???

[n00b4ev3r]

So leute ich hab heut delphi7 bekommen und gleich tüchtig angefangen zu proggen und stoße auch gleich auf ein prob......

ich wollt son nen prog machen bei dem der user nur titel und text eingeben muss dann nen paar radio-buttons drücken und schon erscheint ne messagebox...

^^und ich scheitere schon an ner beta versions des progs

hier habt ihr erstmal das script damit ihr mir sagen könnt was ich falsch mache:

Delphi-Quellcode:

unit Unit1;
            
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, Comobj;

type


  TForm1 = class(TForm)
    Titelmess: TEdit;
    Textmess: TMemo;
    Go: TButton;
    XPManifest1: TXPManifest;
    procedure GoClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GoClick(Sender: TObject);

var titel: shortstring;
var text: ansistring;
begin
titel := titelmess.text;
text := textmess.text;
Application.MessageBox(''+ text + '', '' + titel + '')
end;

end.

^^kan mir da einer helfen??

[Khabarakh]

Vielleicht solltest du noch schreiben, was dein Problem ist .
Application.MessageBox erwartet zwei PChars, also Zeiger auf nullterminierte Strings, als Parameter.
Application.MessageBox(PChar(text)),PChar(titel));

[Elspass]

Moin, Moin,

gexperts ist eine gute Erweiterung für Delphi und beinhaltet einen Generator für Messageboxen.

http://www.gexperts.org

Gruss Jörg

[n00b4ev3r]

also ich will selber einen schreiben!

und bei mir kommt beim compilieren immer son fehler!

Delphi-Quellcode:

[Fehler] Unit1.pas(38): Inkompatible Typen: 'String' und 'PAnsiChar'
[Fehler] Unit1.pas(38): Inkompatible Typen: 'String' und 'PAnsiChar'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Luckie]

Zitat von n00b4ev3r:

also ich will selber einen schreiben!

und bei mir kommt beim compilieren immer son fehler!

Delphi-Quellcode:

[Fehler] Unit1.pas(38): Inkompatible Typen: 'String' und 'PAnsiChar'
[Fehler] Unit1.pas(38): Inkompatible Typen: 'String' und 'PAnsiChar'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Dann guck doch mal in der Hilfe unter TApplication.Messagebox mal nach. Da findet man dann so was wie:
function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

[n00b4ev3r]

es wäre echt nett wenn ihr mir erstmal die eine zeile so schreiben würdet das sie funzt.....


^^ich verstehe sowas immer nur an beispielen....

[toms]

Khabarakh hat dir doch ein Beispiel gepostet?

[n00b4ev3r]

das geht auch nicht

Delphi-Quellcode:

[Fehler] Unit1.pas(38): Nicht genügend wirkliche Parameter
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[teebee]

Dann wirf doch mal einen Blick in die OH und Du siehst, dass noch ein Parameter fehlt: Flags
Also noch schnell ein MB_OK als letzten Parameter, dann sollte es gehen...

Gruß, teebee

[Luckie]

Der letzte Parameter ist optional und standardmäßig mit MB_OK vorbelegt. Das geht aber erst mit Delphi Versionen höher Delphi drei.