[savitskiykb]

Всем здравствуйте!
Помогите выполнить практическую работу в Delphi 7.
Учусь на 1 курсе, еще не сильно разбираюсь.
Нужно написать простую "программку".
Допустим, на форме расположены квадрат и круг.
При нажатии на круг - появляется надпись "привет".
При нажании на квадрат - надпись "привет убирается" и появляется другая надпись. (ну это как пример задания)

Что-то такое:

Код:

Unit txtxx; 
interface uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls, ExtCtrls; 
type 
TForml = class (TForm) Shapel: TShape; 
Shape2: TShape; 
Labell: TLabel; 
Label2: TLabel; 
procedure ShapelMouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
procedure Shape2MouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
private 
{Private declarations} 
public 
{Public declarations) 
Forml: TForml; 
implementation {$ R * .DFM} 
procedure TForml.ShapelMouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
  (метод обработки события OnMouseDown для компоненты Shapel} begin 
labell.caption = 'Ky-Ky'; {изменение подписей обеих отметок} 
label2.caption: = ''; 
end; 
procedure TForml.Shape2MouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
{метод обработки события OnMouseDown для компоненты Shape2) 
begin 
label2.caption = 'Ky-Ky-pi-Ky'; (изменение подписей обеих отметок} 
labell.caption: = ''; 
end; 
  end. 

Админ: учимся пользоваться тегами по назначению!

Кто может помочь, ответьте, как с вами связаться.
Либо свяжитесь со мной:
Skype: savitskiykb
ICQ: 644350709
VK: https://vk.com/savitskiykb
savitskiykb@gmail.com

[RusMaXXX]

все вопросы в личку!