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 :wink: .
Application.MessageBox erwartet zwei PChars, also Zeiger auf nullterminierte Strings, als Parameter.

Delphi-Quellcode:

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:

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:

Delphi-Quellcode:

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.

[n00b4ev3r]

wenn ich es so

Delphi-Quellcode:

Application.MessageBox(PChar(text)),PChar(titel), 17);

oder so

Delphi-Quellcode:

Application.MessageBox(PChar(text)),PChar(titel), MB_OK);

mache kommt genau der gleiche fehler

[Luckie]

Zitat:

Zitat von n00b4ev3r

wenn ich es so

Delphi-Quellcode:

Application.MessageBox(PChar(text)),PChar(titel), 17);

oder so

Delphi-Quellcode:

Application.MessageBox(PChar(text)),PChar(titel), MB_OK);

mache kommt genau der gleiche fehler

Was soll die zweite schließende Klammer beim ersten Parameter?

[teebee]

Bei meinem Delphi 5 Standard ist der letzte Parameter nicht optional.
Das Problem ist der Shortstring, der nicht in PChar gecastet werden kann.

Gruß, teebee

[n00b4ev3r]

So hab jetzt die Klammer weggemacht und jetzt kommt diese Fehlermeldung:

Delphi-Quellcode:

[Fehler] Unit1.pas(38): Ungültige Typumwandlung
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Ich könnt :kotz:

[teebee]

Hab ich doch gerade geschrieben...

[n00b4ev3r]

Dein Post war leider noch nicht da!

Sorry!


Also ist das in Delphi unmöglich???



In AutoIt v3 hab ich es noch hinbekommen!

[teebee]

Natürlich ist das möglich: mach aus dem Shortstring einfach einen 'normalen' (ansi)string...

[n00b4ev3r]

DANKE DANKE DANKE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



IHR SEID SUPER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


WOW!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!