Quelle 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.

quality93%

¤ Dauer der Verarbeitung: 0.12 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.