Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: MailData.pas Sprache: Delphi

unit MailData;

interface

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

type
  TMailForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Mailserver: TEdit;
    User: TEdit;
    Password: TEdit;
    Absenden: TButton;
    Verwerfen: TButton;
    Email: TEdit;
    Label4: TLabel;
    procedure VerwerfenMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure AbsendenMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure AbsendenExit(Sender: TObject);
    constructor Create(Owner: TComponent);override;
    procedure AbsendenClick(Sender: TObject);
    procedure VerwerfenClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  public
    { Public declarations }
    Sent:boolean;
  end;

implementation

{$R *.dfm}
procedure TMailForm.AbsendenExit(Sender: TObject);
begin
  Verwerfen.SetFocus;
end;

procedure TMailForm.AbsendenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  AbsendenClick(nil);
end;

constructor TMailForm.Create(Owner: TComponent);
begin
  inherited;
  Sent:=false;
  MailServer.Clear;
  User.Clear;
  Password.Clear;
end;

procedure TMailForm.AbsendenClick(Sender: TObject);
begin
   if      Mailserver.Text=''  then Label1.Color:=clRed
   else if User.Text=''        then Label2.Color:=clRed
   else if Password.Text=''    then Label3.Color:=clRed
   else if Email.Text=''       then Label4.Color:=clRed
   else begin
     Sent:=true;
   end;
   Close;
end;

procedure TMailForm.VerwerfenClick(Sender: TObject);
begin
   Sent:=false;
   Close;
end;

procedure TMailForm.VerwerfenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  VerwerfenClick(nil);
end;

procedure TMailForm.FormPaint(Sender: TObject);
begin
  Mailserver.SetFocus;
end;

end.

¤ Dauer der Verarbeitung: 0.14 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.