48634 (588585), страница 5

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 5)

Label59. Font. Color: =clBlack;

end;

procedure TForm2. Label88MouseLeave(Sender: TObject);

begin

Label88. Font. Color: =clBlack;

end;

procedure TForm2. Label100MouseLeave(Sender: TObject);

begin

Label100. Font. Color: =clBlack;

end;

procedure TForm2. N6Click(Sender: TObject);

begin

RvProject1. Execute;

end;

procedure TForm2. N4Click(Sender: TObject);

begin

Form3: =TForm3. Create(Self);

try

Form3. ShowModal;

finally

Form3. Free;

end;

end;

procedure TForm2. N7Click(Sender: TObject);

begin

RvProject2. Execute;

end;

procedure TForm2. N8Click(Sender: TObject);

begin

RvProject3. Execute;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellApi, jpeg, OleCtrls, SHDocVw, XPMan, Buttons;

type

TForm3 = class(TForm)

Panel1: TPanel;

Image1: TImage;

Label3: TLabel;

Label6: TLabel;

XPManifest1: TXPManifest;

Label7: TLabel;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

procedure FormCreate(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label6MouseLeave(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *. dfm}

procedure TForm3. FormCreate(Sender: TObject);

begin

Image1. Picture. LoadFromFile('Мы 0085959595. jpg');

end;

Procedure AutoSendMail;

Var

EMailDestinationString,SubjectString,Line1String,Line2String,mailstring: String;

begin

EMailDestinationString: ='aleks_bugaev@mail. ru';

SubjectString: ='Message Subject';

Line1String: ='This is the first line';

Line2String: ='This is the second line';

// Можно использовать несколько адресов, разделяя их точкой с запятой //

mailstring: ='mailto: ' + EMailDestinationString +

'? subject=' + SubjectString +

'&body='+ Line1String +

'%0d' + Line2String;

if (ShellExecute(0,'open',PChar(mailstring),'','',SW_SHOWNORMAL) <=32) then

ShowMessage('Auto method failed. ');

end;

procedure TForm3. Label6Click(Sender: TObject);

begin

AutoSendMail;

end;

procedure TForm3. Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label6. Font. Color: =clBlue;

Label7. Font. Color: =clBlue;

end;

procedure TForm3. Label6MouseLeave(Sender: TObject);

begin

Label6. Font. Color: =clBlack;

Label7. Font. Color: =clBlack;

end;

end.

Характеристики

Список файлов ВКР